Информатика 8 класс

Question

Информатика 8 класс

риша мэнсон Ученик (116), открыт 3 недели назад

1.Составьте программу, которая выводит только нечетные числа от -8 до 12.
2. Составьте программу для нахождения среднего арифметического четных натуральных чисел до 100.
3.Составьте программу, которая выводит квадраты числе от 10 до 20.
4.Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день он пробежит больше 25 км.

ВСЕ В ПАСКАЛЕ

Answer 1

1)
Вывод в столбик:

 Program P1; 
uses crt; 
var i: integer; 
begin 
clrscr; 
for i:=-8 to 12 do if i mod 2<>0 then writeln (i); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

Вывод в строку:

 Program P1; 
uses crt; 
var i: integer; 
begin 
clrscr; 
for i:=-8 to 12 do if i mod 2<>0 then write (i, ' '); 
writeln(' '); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

2)

 Program P2; 
uses crt; 
var i, n: byte; 
    s: integer; 
begin 
clrscr; 
n:=0; 
s:=0; 
for i:=1 to 100 do if i mod 2=0 then begin 
    n:=n+1; 
    s:=s+i; 
    end; 
writeln (s/n:0:1);
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

3)
В столбик:

 Program P3; 
uses crt; 
var i: byte; 
begin 
clrscr; 
for i:=10 to 20 do writeln (sqr (i)); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

В строку:

 Program P3; 
uses crt; 
var i: byte; 
begin 
clrscr; 
for i:=10 to 20 do write (sqr (i), ' '); 
writeln (' '); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

4)
Цикл While:

 Program P4; 
uses crt; 
var d: byte; 
    s: real; 
begin 
clrscr; 
d:=1; 
s:=10; 
while s<=25 do begin 
      d:=d+1; 
      s:=s+s*0.1; 
      end; 
writeln ('Лыжник пробежит больше 25 км на ' d, '-й день.'); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

Цикл Repeat:

 Program P4; 
uses crt; 
var d: byte; 
    s: real; 
begin 
clrscr; 
d:=1; 
s:=10; 
repeat 
d:=d+1; 
s:=s+s*0.1; 
until s>25; 
writeln ('Лыжник пробежит больше 25 км на ' d, '-й день.');  
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.