я выбирал задания у которых больше всего .
надеюсь тебе это решение
1
var i:integer;
begin
for i:=2 to 100 do
if(i mod 2 = 0) then writeln(i);
end
2
Var
a: Real;
i,n: Integer;
Begin
Writeln
a:=0
for i:=1 to n do
a:= a + sgr(i);
end
Writeln
Readln
end.
6
Var
N1, N2, M, i: Longint
Begin
Write( Wwedite N1= `)
ReadLn (N2)
if (N1=0) and (N2=0) then writeLn;
if N1>N2 then M:= N1 else M:= N2;
i:=M -1;
Repeat
Inc(i);
Until ((i mod N1)=0) and ((i mod N2)=0);
WriteLn ;
end.
12.
program N99210889
const n=10
s: longint = 1
var i: byte;
begin
s: = s+ Term;
Term: = Term×2
end
writeln(s)
readln
end.
Запоминаем сумму, которую даем продавцу, вычитаем сумму покупки.
Смотрим на часы, запоминаем время, открываем программу, смотрим во сколько начнется фильм
Узнаем длину основания, узнаем высоту, применяем формулу площади треугольника
Узнаем массу кирпича, узнаем высоту с которой бросаем кирпич, применяем формулу
Узнаем приблизительные затраты электроэнергии каждого оборудования, суммируем общие затраты.
Видим интересующее слово, открываем словарь, находим слово и перевод
Находим непонятное слово, открываем словарь, переводим