паскаль составьте программу определяющую какие из 4 заданных чисел делятся на 5
5-9 класс
|
Var a,b,c,d:integer;
Begin
Write('Введите 4числа: '); readln(a,b,c,d);
if (a mod 5 = 0 ) then writeln(a,' делится на 5 без остатка');
if (b mod 5 = 0 ) then writeln(b,' делится на 5 без остатка');
if (c mod 5 = 0 ) then writeln(c,' делится на 5 без остатка');
if (d mod 5 = 0 ) then writeln(d,' делится на 5 без остатка');
end.
program x;
uses crt;
var
mas: array[1..4] of integer;
i:integer;
begin
clrscr;
writeln('Введите 4 числа '') ;
for i:=1 to 4 do
begin
readln(mas[i]);
end;
for i:=1 to 4 do
if(mas[i] mod 5=0)
then
begin
writeln('Числа без остатка ', mas[i]);
endelse if (mas[i] mod 5<>0) then
writeln('Числа с остатком ', mas[i]) ;
readln;
end.
тут надо div mod использовать, написать или уже понятно?
Другие вопросы из категории
значении корней квадратного уравнения.
Читайте также
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
программу определяющую каких элементов в точке больше положительных или отрицательных
2.Составьте программу, определяющую, является ли данное число делителем числа 3.
Заранее спасибо.