Есть ответ 👍

1. Даны два цикла:
а) • нц пока клетка чистая
•• закрасить
• кц
б) • нц пока клетка закрашена
•• закрасить
• кц
для каждого цикла составьте диалог компьютера Робота в ситуации, когда Робот изгачально стоит:
1) в закрашенной клетке
2) в незакрашенной

2. Расположение Робота показано на рисунке 1. Составьте диалог компьютера и Робота при выполнении след. цикла:
• нц пока сверзу свободно
•• вправо
• кц
3. Поле Робота состоит из 8 клеток рис 2. Даны 4 составных условия:
1) слева стена и сверху стена
2) сверху свободно или снизу свободно
3) слева своболно и ( справа стена или клетка чистая)
4) клетка закрашена или ( снизу стена и справа свободно

149
400
Посмотреть ответы 1

Ответы на вопрос:

Sofa9111
4,7(64 оценок)

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.

Популярно: Информатика