var
a,h,s: integer;
begin
writeln('введите основание ');
readln(a);
writeln('введите высоту треугольника') ;
readln(h);
S:=(1/2)*(a*h);
writeln('площадь равна ',s);
end.
4правильный ответ, могу обосновать если важно
Поднялся - значит вернулся назад, то есть нажал стрелочку назад, значит в папке "договора" было несколько папок, ну а спустился значит перешёл куда-то в данном случае он перешёл в папку срочные, потом в покупка
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.
156 - могло (например, для числа 960 9+6=15, 6+0=6)
1717 - могло (989)
1917 - не могло (сумма двух цифр не даст 19)
518 - не могло (5<18, а 51 не могло бы получиться)
512 - не могло (аналогично)
152 - не могло (если большая сумма 15, то меньшая не может быть меньше 15-9=6)
69 - не могло (6<9)
915 - не могло (9<15, 91 не могло получиться)
195 - не могло (19 не получить)
Ответ: 2.
Program MAX;
var
a:integer;{само проверяемое число}
m:integer;{максимально число}
begin
m:=0;{начальное значение максимального числа}
writeln('Введите ваше число:', '(Если захотите выйти, напишите ноль)':3);
readln(a);
while (a <> 0) then begin
If (a > m) then begin
m:= a; end;
readln(a); end;
writeln('Максимально число:', m:3);
End.