Дано число. Ели оно кратно пяти, удвоить его и написать "Удвоенное число равно___". В противном случае написать "Число не кратно пяти".ПАСКАЛЬ АБЦ СРОЧНО!!!!!!!!!!!!!
Ответы
Ответ дал:
0
var a:integer;
begin
write('Введите число: ');
read(a);
if a mod 5=0 then
begin
a:=a*2;
write('Удвоенное число равно: ', a);
end;
if a mod 5 <>0 then write('Число не кратно пяти.');
end.
Похожие вопросы
2 года назад
8 лет назад
8 лет назад