я выбирал задания у которых больше всего .
надеюсь тебе это решение
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.
Вопрос 1.
Какие ключевые слова не используются для записи команды ветвления?
andВопрос 2.
Как выглядит полная форма команды ветвления?
if ... then ... else ...
Вопрос 3.Как выглядит сокращённая форма команды ветвления?
if ... then ...Вопрос 4.
Какая из команд записана неправильно?
if a:=0 then a>0;
Вопрос 5.
Какая из команд записана правильно?
if x=0 and a>0 then b:=0 else b:=x;Вопрос 6.
Какая из команд записана правильно?
if (x=0) and (a>0) then begin b:=0;c:=x; end else b:=x;
Вопрос 7.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=6;
if a mod 2 = 0 then write(a+2) else write(a-2);
8Вопрос 8.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=12;
if a div 2 >= 6 then b:=a mod 5 else b:=a div 3;
write(a-b);
10
Вопрос 9.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=22;
if a*a >= 225 then a:=a mod 6
Write(22-a);
18
Вопрос 10.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 9
a:=5; b:=8; c:=11;
if (a>b) ... (b
4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАН
Вопрос 11.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 3
a:=15; b:=7; c:=4;
if (a>b) ... (b
4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАН
Вопрос 12.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 5
a:=1; b:=8; c:=6;
if (a<=c) ... (b<=c) then z:=c-a else z:=c-b;
2 or
