определить, кратно ли число B ,вводимое с клавиатуры 21
Ответы на вопрос
Ответил farodis
0
На Паскале:
var b: integer;
begin
writeln('Введите число: ');
readln(b);
if b mod 21=0 then
writeln('Число кратно 21')
else
writeln('Число не кратно 21');
end.
Ответил rose51
0
1 uses crt;
2 var b:integer;
3 begin
4 write(' A и B и C: ');readln(b);
5 if b mod 21=0 then write('кратно ') else writeln('не кратно ')
6 end. А если сделать так?
2 var b:integer;
3 begin
4 write(' A и B и C: ');readln(b);
5 if b mod 21=0 then write('кратно ') else writeln('не кратно ')
6 end. А если сделать так?
Ответил farodis
0
можно и через модуль crt, принцип то тот же, но с 4 строчкой что-то тут не то),зачем там и "а" и "b" и "c"?)
Новые вопросы