var year,percent,insum,cursum:integer;
begin
read(year, percent, insum);
cursum:=(percent*insum)/100*year+insum;
write(cursum);
end.
Входный данный должны быть типа
2 15 100
Выходные будут
130
Вопросы в приват
Без примеров:
абсолютные - на другой УРЛ
относительные - внутри страницы
смешанные - надо подумать логически
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.