Стоимость одного килограмма конфет 2.50 напишите программу в pascal, которая запрашивает кол-во купленных килограммов, вычисляет стоимость и выводит результат на экран.

космонафт   відповідь на

картинка длжна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

в блок схемах не сильна

var n: integer;

s,s0: real;

begin

  n: =1;

  s: =10;

  repeat

      n: =n+1;

      s: = s + (100+p)*s0/100;

      s0: =(100+p)*s0/100;

  until s> 200;

  writeln(s);

end.

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.