Напишите программу, которая для каждого из трех чисел, введенных чисел с клавиатуры пользователем, определяет является это число четным или нечетным, двузначное оно или нет и кратно ли оно 3.
Answers & Comments
Студэнt
//прога на Pascal`e var a: array of int64; n: longint; i : byte; begin write ('Введите кол-во чисел: '); readln (n); setLength (a, n); for i:=0 to n-1 do begin write ('Введите ', i+1, ' число: '); readln (a[i]); end;
for i:=0 to n-1 do begin writeln ('-----------------------'); writeln ('Число ', a[i], ':'); if (a[i] mod 2) = 0 then writeln ('Четное') else writeln ('Нечетное'); if (a[i] mod 3) = 0 then writeln ('Кратно 3-ем') else writeln ('Не кратно 3-ем'); if (a[i]<10) or (a[i]>99) then writeln ('Не 2-значное') else writeln ('2-значное'); end; end.
1 votes Thanks 1
mmmashaas
Спасибо! А что значит array.byte.longint(просто мы этого не проходили:( )
Студэнt
1) Я допустил ошибку в строке "if (a[i] div 10)=0 then...". Исправь на "if (a[i]<10) or (a[i]>99) then"
Студэнt
byte, longint - целочисленные типы в Pascal (в компиляторах PascalABC.Net longint = integer, а byte имеет диапазон значений 0..255), array - обозначение массива (массив – это именованная группа однотипных данных, хранящихся в последовательных ячейках памяти)
Answers & Comments
var
a: array of int64;
n: longint;
i : byte;
begin
write ('Введите кол-во чисел: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите ', i+1, ' число: ');
readln (a[i]);
end;
for i:=0 to n-1 do
begin
writeln ('-----------------------');
writeln ('Число ', a[i], ':');
if (a[i] mod 2) = 0 then writeln ('Четное') else writeln ('Нечетное');
if (a[i] mod 3) = 0 then writeln ('Кратно 3-ем') else writeln ('Не кратно 3-ем');
if (a[i]<10) or (a[i]>99) then writeln ('Не 2-значное') else writeln ('2-значное');
end;
end.