ПОМОГИТЕ РЕШИТЬ ИНФОРМАТИКУ

Программу, значит, написать... - Это можно. Только на каком языке программирования это нужно сделать? - Нет, программе, конечно, без разницы, на каком языке программирования (а языков программирования существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это вдруг программа написана на этом языке программирования, а не натом, который он(а) преподает.

Вот, например, на Паскале (Pascal):

№1:

 Program P1; 

uses crt; 

var i, sum: integer; 

begin 

clrscr; 

sum:=0; 

for i:=-350 to 350 do if (i mod 3=0) and (i mod 40) then sum:=sum+abs (i); 

writeln ('Сумма модулей чисел, кратных 3 и не кратных 4 составляет: ', sum); 

if (sum mod 7=0) then writeln ('Сумма кратна 7.') else writeln ('Сумма не кратна 7.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

№2:

 Program P2; 

uses crt; 

var d, s: real; 

begin 

clrscr; 

d:=1; 

s:=10; 

repeat 

d:=d+1; 

s:=s+0.05*s; 

until s>=200; 

writeln ('Количество дней, через которые лыжник пробежит 200 километров, составит: ', d); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

программа 2
км=10
д=1
с=10
пока с меньше или равно 200 делать
д=д+1
км=км+км/20
с=с+км
конецпока
вывод д
вывод с

Задача 1


program SumModulo;

var
i, sum: integer;

begin
sum := 0;
for i := -350 to 350 do
begin
if (i mod 3 = 0) and (i mod 4 <> 0) then
sum := sum + abs(i);
end;

writeln('Сумма модулей чисел, кратных 3, но не кратных 4: ', sum);

if (sum mod 7 = 0) then
writeln('Сумма модулей чисел кратна 7')
else
writeln('Сумма модулей чисел не кратна 7');
end.

Задача 2

program Skier;

var
day: integer;
distance, current: real;

begin
distance := 10; // начальное расстояние
current := distance; // текущее расстояние
day := 1; // первый день

// цикл увеличения расстояния каждый день
while distance < 200 do
begin
current := current * 1.05; // увеличение текущего расстояния на 5%
distance := distance + current; // добавление текущего расстояния к общему
day := day + 1; // увеличение номера дня на 1
end;

writeln('Через ', day, ' дней лыжник пробежал 200 км.');
readln;
end.