Напишите программу нахождения произведения 4 чисел? на Паскале
Program Pr1;
uses crt;
var a,b,c,d,e:integer;
Begin
clrscr;
writeln('Введите 4 числа');
readln(a,b,c,d);
e:=1;
e:=a*b*c*d;
writeln(e);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program Pr1;
uses crt;
var a,b,c,d,e:integer;
Begin
clrscr;
writeln('Введите 4 числа');
readln(a,b,c,d);
e:=1;
e:=a*b*c*d;
writeln(e);
end.