Составить программу нахождения наибольшего из трёх чисел и проверить кратно ли это число трём в Паскале авс
Ответы
Ответ дал:
0
По идее ок)
program prim;
var a:array [1..3] of integer;
i:integer;
c:integer;
begin
write('Введите 3 числа: ');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i] > c then c:=a[i];
if (c mod 3=0) then
writeln(c, ' кратно 3')
else
writeln(c, ' не кратно 3');
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад