program
zadacha;
var
n,x:real;
begin
writeln('vvedite
chislo');
readln(n);
if n>0
then x:=sqr(n);
if n<0
then x:=sqr(n)*n;
writeln(x);
end.
Переводим цену пирожка в копейки (по формуле 100a + b), умножаем на n и получаем цену n пирожков в копейках. Делим с остатком на 100 и получаем в целой части число рублей, в остатке – число копеек.
Pascal:
program pies;
var a, b, n, total: integer;
begin
writeln('Введите значения a, b, n:');
read(a, b, n);
total := n * (100 * a + b);
writeln('Цена пирожков: ', n div 100, ' руб. ', n mod 100, ' коп.')
end.
Предполагается, что будет введено минимум одно значение.
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore
Там будет 2 круга 1 большой и в нём ещё 1 маленький, большой это все телефоны, а маленький это твой