Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Написать программу решения задачи на языке Паскаль:
а)Известно, что Х кг шоколадных конфет стоит А рублей, а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
б)Дана длина ребра куба а. Найти его объем и площадь поверхности

Ответ оставил Гость

// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

var x,y,a,b: real;
begin
  writeln(Введите массу шоколадных конфет);
  readln (x);
  writeln(Введите сумму потраченную на покупку шоколадных конфет);
  readln (a);
  writeln(Введите массу ирисок);
  readln (y);
  writeln(Введите сумму потраченную на покупку ирисок);
  readln (b);
  writeln (килограмм шоколадных конфет стоит ,(a/x):0:2, рублей);//(a/x):0:2 - округряем до сотых)
  writeln (килограмм ирисок стоит ,(b/y):0:2, рублей);
  Writeln (Шоколадные конфеты дороже ирисок в ,(a/x)/(b/y):0:1, раз);// - округляем результат до десятых
 end.


//Дана длина ребра куба а. Найти его объем и площадь поверхности

Var a: real;
begin
  writeln (введите длину ребра куба);
  readln (a);
  while a<0 do
    begin
      writeln (вы ввели не допустимое значение попробуйте еще раз);
      writeln (введите длину ребра куба);
      readln (a);
    end;
  writeln (площадь куба равна ,a*a*6);
  writeln (объем куба равен ,a*a*a);
end.