ПАСКАЛЬ.. помогите решить задачи..

Question

ПАСКАЛЬ.. помогите решить задачи..

Tifa Lokhart Ученик (111), на голосовании 14 лет назад

1.Даны три числа .вычистить их сумму и произведение. На экран вывести сообщение результат «сумма чисел=» и «произведение чисел=»

2.Даны два числа. Вычислить их разность и частное. На экран вывести сообщение результат «разность чисел=» и «частное чисел=»

Answer 1

Var a,b,c,summa,proizvedenie,a1,b1,raznost,chastnoe :integer;
Begin
begin;
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
summa:=a+b+c;
proizvedenie:=a*b*c;
writeln('Сумма=',summa);
writeln('Произведение=',proizvedenie);
end;
begin;
write('a1=');
readln(a1);
write('b1=');
readln(b1);
raznost:=a1-b2;
chastnoe:=a1/b1;
writeln('Разность=',raznost);
writeln('Частное=',chastnoe);
end;
end.

Answer 2

uses CRT;
var a,b: Integer;
begin
clrscr;
write('Введите 2 числа: ');
readln(a,b);
writeln('Сумма чисел = ', a+b);
writeln('Произведение чисел = ', a*b);
readkey;
end.

uses CRT;
var a,b: Integer;
begin
clrscr;
write('Введите 2 числа: ');
readln(a,b);
writeln('Разность чисел = ', a-b);
writeln('Частное чисел = ', (a/b):9:4);
readkey;
end.