Guru-tailor
?>

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

Информатика

Ответы

ВайсманКреденс357

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

Vladimir
kotocafe45
Юрий197
yulyashka2142
stepanova-natalie
Любовь
Deniskotvitsky6422
rayon14
Vgubushkin
mshelen732
Merkuloff78
markitandl
kamalfayed229
lk1303
Svetlana395