Ответы и решения

Помогииитеее Решите срочноо

0 голосов
30 просмотров

Помогииитеее
Решите срочноо


image

Информатика (71 баллов) | 30 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=Abs(ReadInteger('Введите 4-х значное число'));
  var d:array[1..4] of integer;
  for var i:=1 to 4 do begin
    d[5-i]:=n mod 10;
    n:=n div 10
    end;
  if (d[1]+d[2]).IsOdd then Writeln(d[3]+d[4])
  else Writeln(d[4]*d[3])
end.

Примеры
Введите 4-х значное число 3528
16

Введите 4-х значное число 1639
12

№2

begin
  var n:=ReadInteger('Введите 5-и значное число');
  var s:=Abs(n).ToString;
  if s[3]  else Swap(s[2],s[4]);
  Writeln(s)
end.

Примеры
Введите 5-и значное число 15382
18352

Введите 5-и значное число 13042
23041
БОГ (150k баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей