Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
Program lyg;
var
all,last,seven: real;
ii,day: integer;
begin
last := 10;
all := 10;
day := 0;
for ii := 1 to 10 do
begin
last := last+(last*0.1);
all := all+last;
if ii=7 then
seven := all;
writeln('day ',ii,': ',round(last));
if day = 0 then
if all > 100 then
day := ii;
end;
writeln('Overall distance of 7 days: ',seven);
writeln('Distance 100km is reached at ',day,' day');
<span>end.</span>
#версия python 3
a = int(input("Введите a: "))
b = int(input("Введите b: "))
if a>b:
res = a+b
print(str(res))
elif a<b:
res = a-b
print(str(res))
else:
print("Ошибка")
Название программы.
Объявление переменных.
Процедуры и функции
Основная программа, начинаемая begin и заканчивая end.
Расположение как написано: желтый квадрат, зеленый ромб, красный треугольник, синий круг