Вводится четырёхзначное число (xysz). Вывести сумму xy + sz. Начальные данные необходимо ввести с клавиатуры. паскаль

MishaZuev1 MishaZuev1    2   14.03.2021 15:49    5

Ответы
AnnaKor14 AnnaKor14  14.03.2021 15:50

var N,x,y,s,z:integer;

begin

writeln('Введите 4-значное число');

readln(N);

x:=N div 1000;

y:=N div 100 mod 10;

s:=N div 10 mod 10;

z:=N mod 10;

writeln(x*y+s*z);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика