Question

1) Запишите программу на языке паскаль для ввода пяти любых целых чисел с клавиатуры
2) Запишите программу на языке паскаль для вывода суммы всех цифр на экран

Answer 1

Ответ:

Var A, B, C, D, E, SUM: Integer;

begin

Write ('Первое слагаемое: ') ;

Readln (A) ;

Write ('Второе слагаемое: ') ;

Readln (B) ;

Write ('Третье слагаемое: ') ;

Readln (C) ;

Write ('Четвертое слагаемое: ') ;

Readln (D) ;

Write ('Пятое слагаемое: ') ;

Readln (E) ;

SUM := A+B+C+D+E;

Writeln (SUM);

readln;

end.