ИНФОРМАТИКА, ПАСКАЛЬ!!!!!!!!!!!!!!!!ПОЖАЛУЙСТА
Решить хотя бы 2 задачи!
Ответы
Program z3;
Uses crt;
Var
a,b:real;
begin
write('Введите первое число:');
readln(a);
write('Введите второе число:');
readln(b);
if a>b then writeln('Наибольшее число:',a)
else writeln('Наибольшее число: ',b)
end.
Program z4;
Uses crt;
Var
a,c,k:integer;
begin
write('Введите количество шаров первого цвета:');
readln(a);
write('Введите количество шаров второго цвета:');
readln(c);
if a>c then k:=c+1
else k:=a+1;
writeln ('Необходимо достать ', k, ' шаров');
end.
Program z5;
Uses crt;
Var
a,b,c,k:real;
begin
write('Введите первое число:');
readln(a);
write('Введите второе число:');
readln(b);
write('Введите третье число:');
readln(c);
if a>b then k:=a
else k:=b;
if c>k then writeln('Наибольшее число:',c)
else writeln('Наибольшее число: ',k)
end.