Решите пожалуйста 2-5 задачиСложность-8 класса

Решите пожалуйста 2-5 задачки
Сложность-8 класса

Задать свой вопрос
1 ответ
2.
var i,k:integer;
begin
for i:=30 to 90 do
 begin
 k:=i mod 6;
 if (k=1)or(k=2)or(k=5) then write(i,' ');
 end;
end.

Итог:
31 32 35 37 38 41 43 44 47 49 50 53 55 56 59 61 62 65 67 68 71 73 74 77 79 80 83 85 86 89

3.
var i,s:integer;
begin
s:=0;
for i:=1 to 70 do
 if (i mod 3=0)or(i mod 7=0) then s:=s+i;
write('s = ',s);
end.

Итог:
s = 1087

4.
var i:integer;
begin
for i:=10 to 99 do
 if (i mod 3=0)and(i mod 5lt;gt;0) then write(i,' ');
end.

Результат:
12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99

5.
var i,p:integer;
begin
p:=1;
for i:=10 to 99 do
 if (i mod 2=1)and(i mod 11=0) then p:=p*i;
writeln('p = ',p);
end.

Результат:
p = 152193195
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт