1.Напишите ** языке Паскаль программу, которая для произвольного четырёхзначного числа...

Question

1.Напишите на языке Паскаль программу, которая для произвольного четырёхзначного числа определяет сумму и произведение его цифр.2.Написать программу вычисления стоимости поездки на дачу туда и обратно, если исходными данными является расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км пробега; цена одного литра бензина.

Answer 1

1-я задача:

var a, x:integer;

   s, p:integer;

begin

 writeln('Введите число');

 readln(a);

 x:=a;

 

 s:=0;

 p:=1;

 

 while ( x<>0 ) do  

   begin

     s := s + (x mod 10);

     p := p * (x mod 10);

     x := x div 10;

   end;

   

writeln('Сумма цифр: ', s);

writeln('Произведение цифр:', p);

end.

2-я задача:

var d, b, p, c:real;

begin

 //Расстояние до дачи

 d := 120;

 

 //Потребление бензина

 b := 8;

 

 //Цена одного литра

 p := 1.45;

 

 //Расстояние туда и обратно

 d := d*2;

 

 //Стоимость поездки

 c := ( (b*d)/100 ) * p;

 

 writeln('Стоимость поездки: ', c, ' рублей');

 

end.