Var S,n,A:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 10 to n+9 do
Begin
A:=n;
S:=0;
While A > 0 do
Begin
S:=S+A mod 10;
A:= A div 10
End;
WriteLn('Сумма цифр ',n,' равна: ',S)
End;
End.
В разделе описания переменных
var
a,b: integer;
Var
s: string;
begin
writeln('Введите ваше имя');
readln(s);
writeln('Здравствуйте, ',s);
writeln('Сегодня хорошая погода')
end.
Блок-схема с использованием цикла for, в цикле шаг равен +1
Задание 1:
A.<span>Общеутвердительные
</span><span>Задание 2:
Братан,я вообще без понятия че тут ответить
Задание 3:
4.Принятие действий
Задание 4:
</span>понятие<span>, </span>суждение<span> и </span>умозаключение<span>.
</span><span>Задание 5:
я не знаю
Задание 6
</span><span>Геометрические фигуры
Задание 7
1.
3.
5.
6.
7.
8.
Задание 8
Начало и конец
задание 8(у тя повторное оно)
1.
4.
Задание 9
3.
</span><span>5.
7.
Задание 10
Я не знаю </span>