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

+ 0 -

Oplastinina

28 апр. 2014 г., 1:56:12 (10 лет назад)

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.