Добавил:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Источник:
Задача:
Получить от пользователя данные, обработать их и вывести на экран
Программа на языке Паскаль:
var
a,b,c,d,sum: integer;
mult: longint;
begin
write('Input number a: ');
readln(a);
write('Input number b: ');
readln(b);
sum:= a+b;
writeln('Sum of the numbers ',a,' and ',b,' is ',sum);
writeln;
writeln('Input below numbers c and d: ');
read(c,d);
mult:= c*d;
writeln('The result of multiplying ',c,' and ',d,' is ',mult);
end.
Получить от пользователя данные, обработать их и вывести на экран
Программа на языке Паскаль:
var
a,b,c,d,sum: integer;
mult: longint;
begin
write('Input number a: ');
readln(a);
write('Input number b: ');
readln(b);
sum:= a+b;
writeln('Sum of the numbers ',a,' and ',b,' is ',sum);
writeln;
writeln('Input below numbers c and d: ');
read(c,d);
mult:= c*d;
writeln('The result of multiplying ',c,' and ',d,' is ',mult);
end.