ОТВЕТ:
Var a, d, n, i, otv: integer;
begin
read(a,d,n); <em>- ввод всех значений</em>
otv:=a; <em> - в переменную где будет храниться </em>
for i:=1 to n do <em>ответ записываем начальный взнос</em>
begin
a:=a+d; <em>- увеличиваем в цикле взнос</em>
otv:= otv + (a); <em> - добовляем взнос к нашему ответу</em>
end;
writeln(otv); <em> - выводим ответ</em>
end.
Var a,b,c,d,m,n:real;
begin
writeln('Введите размеры комнаты (a,b)');
readln(a,b);
writeln('Введите размеры окна (с,d)');
readln(c,d);
writeln('Введите размеры двери (m,n)');
readln(m,n);
writeln('Площадь для оклейки: ',a*b-c*d-m*n);
end.
1. Пишешь ЕСЛИ введенное число>=13:
выведите ХОРОШО
Если<=13
выведите плохо.
2. Вводится ав
если остаток от деления ав на 10 больше или равен частному от деления на 10
--- Выведите остаток
Если частное от деления ав на 10 больше остатка
------выведите частное
Надеюсь, это поможет. Первые две задачи написаны слева, третья - справа.
Решение достаточно простое. В самом деле, "Повтори 10" говорит нам о том, что будет нарисовано нечто из 10 одинаковых элементов.
Что именно выполняется 10 раз? Поворот направо на 20 градусов, затем рисование прямой линии длиной 36 единиц и снова поворот направо, но уже на 40 градусов. Т.е. угол между прямыми составит 40+20=60 градусов.
За 6 циклов будет нарисован правильный шестиугольник (6х60=360 градусов), а оставшиеся 4 шага пройдут по уже нарисованным линиям, т.е. 4 шага лишние.
<em>Ответ: 3) правильный шестиугольник</em>