Срочно 1) Составить программу вывода на экран всех нечетных элементов с 1 до 10. Паскаль

+ 0 -

Frosiaburlakova

20 нояб. 2014 г., 0:44:59 (9 лет назад)

вот тебе решение на все 3 задачи(+ две которые удалил(P.S умей ждать)). 

------------------------------------------------------------------------------------------------------------------------------

1)Program chisla;
var i:integer;
begin
i:=1;
writeln('Числа от 1 do 10 не четные:');
while i<=10 do
begin
if i mod 2=1

then write(i:3);
i:=i+1;
end;
end.

 ---------------------------------------------

2)Program legko;
Var S,t,V:real;
begin
writeln('введите расстояние');
readln(S);
writeln('введите время');
readln(t);
V:=S/t;
writeln('Скорость равна=',V);
readln;
end.

----------------------------------------------

3)

Program ball;
Var a,b,c: integer;
sred: real;
begin
write('1-ый предмет');
readln(a);
write('2-ый предмет');
Readln(b);
write('3-ий предмет');
readln(c);
sred:=(a+b+c)/3;
writeln('Средний балл =',sred);
end.