Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Пожалуйста, помогите с Паскаль АВС!
1. Найти наименьшее из трех введенных с клавиатуры чисел
2. Найти произведение трех четных введенных с клавиатуры чисел
Заранее спасибо!

Ответ оставил Гость

1.
var a,b,i,n,min:integer;
begin
writeln(Input value);
read(a);
min:=a;
for i:= 1 to 2 do begin
   writeln(Input value);
   read(a);
   if min>a then min:=a;
end;
writeln(min = ,min);
end.
2.
var a,b,c:integer;begin
writeln(Input a);
read(a);
writeln(Input b);
read(b);
writeln(Input c);
read(c);
a:=a*b*c;
writeln(prod = ,a);
end.