120n (руб) - стоимость всего мороженого
3800к (руб) - стоимость всего шоколада
120n + 3200k (руб) - потратил мальчик на всю покупку
просто рисуешь и смотришь, ответ вроде: вверх, вверх, 2 команды
var m,b:integer;
s,c:real;
begin
writeln ('Введите количество повторений:');
read (m);
s:=0;
c:=sqrt(2);
for b:=1 to m do begin
s:=s+c;
c:=sqrt(c);
end;
writeln ('S=',s);
end.
// PascalABC.Net 3.0, сборка 1052
var
s1, s2: string;
a, b: real;
err: integer;
begin
Writeln('Введи первый катет: ');Readln(s1);
Val(s1, a, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Введи второй катет: ');Readln(s2);
Val(s2, b, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
Writeln('Площадь равна ', 0.5 * a * b)
end
end
end.