Составить алгоритм и написать программу: Среди трехзначных чисел найдите те, которые делятся на 11 и на 17.
Аноним:
Какое-то из двух решений неверное.
Ответы
Ответ дал:
0
var a,b,c:integer;
begin
writeln('Введите количество цифр:');
read(a);
for b:=1 to a do begin
readln(c);
if (c mod 11 =0) and (c mod 17 = 0) then
writeln('число ', c, ' удовлетворяет условию');
end;
end.
begin
writeln('Введите количество цифр:');
read(a);
for b:=1 to a do begin
readln(c);
if (c mod 11 =0) and (c mod 17 = 0) then
writeln('число ', c, ' удовлетворяет условию');
end;
end.
Ответ дал:
0
var num:integer;
begin
writeln('0 - выход');
repeat
write('Введите число: ');
readln(num);
if(((num mod 11) = 0) or ((num mod 17) = 0)) then writeln('Это число делится на 11 или 17')
else writeln('Это число не делится ни на 11, ни на 17');
until num = 0;
end.
begin
writeln('0 - выход');
repeat
write('Введите число: ');
readln(num);
if(((num mod 11) = 0) or ((num mod 17) = 0)) then writeln('Это число делится на 11 или 17')
else writeln('Это число не делится ни на 11, ни на 17');
until num = 0;
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад