помогите пожалуйста с free pascal :) 1. вывести на экран следующие числа: 5.8,5.9...6.8. 2.с клавиатуры задаётся цена 1 порции мороженого. вывести на экран стоимость 1,2,..15 порций мороженого. 3.найдите сумму первых пятидесяти натуральных чисел,кратных 12. 4. с клавиатуры задаётся 10 чисел.найдите произведение чисел,меньших 10.найдите среднее арифметическое чисел кратных 3.

cпасибо огромное!

1

Ответы и объяснения

2012-10-11T23:15:35+04:00

Program n1;
Uses CRT;
Var i: real;
begin
ClrScr;
i:=5.8;
While i<=6.8 do
begin
writeln(i:2:1);
i:=i+0.1;
end;
readln
end.

 

Program n2;
Uses CRT;
Var j,i: integer;
begin
ClrScr;
Writeln('Vvedite cenu');
readln(i);
For j:=1 to 15 do
writeln('j porzii: ',i*j);
readln
end.

 

 

Program n3;
Uses CRT;
Var k,s,sum: integer;
begin
s:=12;
While k<=50 do
If s mod 12=0 then
begin
sum:=sum+s;
k:=k+1;
end;
writeln(sum);
readln
end.

 

 

Program n4;
Uses CRT;
Var k,i,p: integer;
begin
Writeln('Vvedite chisla');
p:=1;
For i:=1 to 10 do
begin;
readln(k);
if k<10 then p:=p*k;
end;
writeln(p);
readln
end.

 

 

Среднее арифметическое чисел, кратных трём? Нужен диапазон) Сделала по условию предыдущей задачи, т.е. вводятся десять чисел, и вот среди них находится среднее арифметическое чисел, кратных трём.

Program n5;
Uses CRT;
Var k,i,l,p: integer;
begin
Writeln('Vvedite chisla');
For i:=1 to 10 do
begin;
readln(k);
if k mod 3=0 then
begin
l:=l+1;
p:=p+k;
end;
end;
writeln(p/l:4:4);
readln
end.