1. Даны два цикла:
а) • нц пока клетка чистая
•• закрасить
• кц
б) • нц пока клетка закрашена
•• закрасить
• кц
для каждого цикла составьте диалог компьютера Робота в ситуации, когда Робот изгачально стоит:
1) в закрашенной клетке
2) в незакрашенной
2. Расположение Робота показано на рисунке 1. Составьте диалог компьютера и Робота при выполнении след. цикла:
• нц пока сверзу свободно
•• вправо
• кц
3. Поле Робота состоит из 8 клеток рис 2. Даны 4 составных условия:
1) слева стена и сверху стена
2) сверху свободно или снизу свободно
3) слева своболно и ( справа стена или клетка чистая)
4) клетка закрашена или ( снизу стена и справа свободно
149
400
Ответы на вопрос:
Var a,b,c,d,i,f,g,h,n: integer; begin writeln('введите число'); readln(a); g: =0; c: =0; d: =0; i: =0; f: =0; writeln('введите число для сравнения'); readln(h); for b: =a downto 1 do begin if a mod b = 0 then writeln('его делитель ==> ',b); if a mod b = 0 then c: =b+c; if a mod b = 0 then if b mod 2 = 0 then d: =d+b; if a mod b = 0 then if b mod 2 < > 0 then i: =i+1; if a mod b = 0 then f: =f+1; if a mod b = 0 then if b mod 2 = 0 then g: =g+1; i f a mod b = 0 then if b> h then n: =n+1; end; writeln('сумма его делителей ==> ',c); writeln('сумма его чётных делителей ==> ',d); writeln('количество нечётных делителей ==> ',i); writeln('количество чётных делителей ==> ',g); writeln('количество делителей ==> ',f); writeln('количество делителей больших b ==> ',n); end.
Популярно: Информатика
-
zhadyra198408.12.2021 01:54
-
alina20012012.02.2023 18:14
-
anastasiaplotni03.12.2022 05:53
-
SofiDu11.01.2022 22:25
-
thero1010.04.2020 16:05
-
ЕгорРябцев15.11.2022 23:25
-
алиная225.09.2022 03:03
-
egorsnaiper20129.11.2021 03:11
-
Mary2304Cat06.04.2020 14:40
-
ксения1279мпсалч07.08.2022 21:28