я выбирал задания у которых больше всего .
надеюсь тебе это решение
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.
Человек, не отдавая себе отчета ежесекундно, ежеминутно пользуется громадным количеством информации, которую мы получаем от внешнего мира. В нас вложен огромный интуитивно-аналитический аппарат, который непрерывно перерабатывает огромное количество информации. И мы принимаем все решения не просто так, а мы принимаем все решения по результату сбора и интуитивного анализа (практически автоматического) огромного количества информации. Даже если вам приходится перейти улицу в городе, вы, не отдавая себе отчета, сразу рассчитываете свое состояние здоровья, погоду, скорость движущегося транспорта, наличие тумана или солнечной погоды и вы все это мгновенно просчитываете и принимаете решение: пересекать или постоять подождать.
Объяснение:
Первым шагом намечаем композицию легкими линиями, затем рисуем основание призмы и уже от произвольной длины основы мы можем измерять высоту призмы. Для того, чтобы понять, какое соотношение сторон, мы можем использовать карандаш на вытянутой руке. Стоит помнить о том, что раскрытие верхнего квадрата будет меньше, нежели раскрытие ниже. Это правило работает, если предмет находится ниже линии горизонта. Нам следует рисовать точные линии, чтобы точки пересечения были четкими. Аккуратность построения будет влиять на то, насколько проработанным будет итоговое изображение.