-
- 07 May 2013 Қазақ тiлi
- Автор: Kutliyarova1999
2. Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
-
- 07 May 2013
- Ответ оставил: Aelita8
program 1;
var i:integer;
begin
for i:=35 to 87 do
if ( i mod 7=1) or (i mod 7=2) or ( i mod 7=5) then write (i)
end.
-
- 07 May 2013
- Ответ оставил: да20
var
a: array[1..53] of integer;
i, n: byte;
begin
n:=34;
write('Числа: ');
for i:=1 to 53 do
begin
n:=n+1;
a[i]:=n;
write(a[i]:3);
end;
writeln;
writeln('При делении на 7 дают остаток 1, 2 или 5: ');
for i:=1 to 53 do
begin
if (a[i] mod 7 = 1) or (a[i] mod 7 = 2) or (a[i] mod 7 = 5)
then begin
if a[i] mod 7 = 1 then writeln(a[i], ' (остаток 1)');
if a[i] mod 7 = 2 then writeln(a[i], ' (остаток 2)');
if a[i] mod 7 = 5 then writeln(a[i], ' (остаток 5)');
end;
end;
end. -
- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: қазақ тiлi.
На сегодняшний день (08.10.2024) наш сайт содержит 91805 вопросов, по теме: қазақ тiлi. Возможно среди них вы найдете подходящий ответ на свой вопрос. -
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных
Ответить на вопрос