Регистрация
tatite15
05.09.2020 13:08
Информатика
Есть ответ 👍

Написать программу, которая вводит с клавиатуры два целых числа и выводит их сумму, разность, произведение.

149
292
Посмотреть ответы 2

Ответы на вопрос:

evamakuh
evamakuh
4,6(60 оценок)
Program pascal;   var x, y, b1, b2, b3: integer;   begin  readln(x);   readln(y);   b1: =x+y; b2: =x-y; b3: =x*y; writeln(b1); writeln(b2); writeln(b3); end.
dmitrius2
dmitrius2
4,7(67 оценок)

ответ:

for i: = 1 to 20 do begin

a (i) : = (i + 4) mod 5;

end;

тут массив забивается числами от 0 до 4

for i: = 1 to 20 do begin

if a[i] > m then

m : = a[i];

if a (i) < n then

n : = a[i];

end;

здесь ищем макс(м) и мин(н) этого массива, они конечно равны 4 и 0 соответственно.

х=(m - n) mod 5=(4 - 0) mod 5=4

for i: = 1 to 20 do begin

if a[i] = x then

write(i, ' ');

end;

тут через пробел выводиться номера элементов, чье значение совпадает с х. а это 1 6 11 16

вот и ответ: 1 6 11 16

Популярно: Информатика