<span>Program Task;
Const N = 5;
Var a: Array [1..N] of Integer;
i, k: Integer;
Begin
WriteLn('Введите ', N, ' целых чисел через пробел');
For i := 1 To N Do
Read(a[i]);
For i := 1 To N Do
If a[i] Mod 2 <> 0 Then
Begin
Write(a[i], ' ');
End;
WriteLn;
ReadLn;
End.
</span>
Program zadacha_1;
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=1 to a do begin
c:=sqr(b);
writeln(c);
end;
end.
<span>
program zadacha_2;
var a,b,c:integer;
begin
c:=1;
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
for a:=a to b do begin
c:=c*a;
end;
writeln('произведение чисел от ',a,' до ',b,' ==> ',c);
end.
<span>
program zadacha_3;
var a,b,c:integer;
d:real;
begin
c:=0;
writeln('введите число');
readln(a);
for b:=10 to a do begin
c:=c+1;
d:=d+b;
end;
d:=d/c;
writeln('среднее арифметическое ',d);
end.</span></span><span /><span><span><span>
</span></span></span>
"Каждая вторая" означает, что с дистанции сошли машины с четными номерами.
var
i:integer;
begin
Write('С дистанции сошли машины с номерами ');
i:=2;
repeat
Write(i,' ');
i:=i+2
until i>17
end.
Результат
С дистанции сошли машины с номерами 2 4 6 8 10 12 14 16
1 Нарисовать круг
2 Нарисовать круг поменьше
3 Найти центр круга
4 На одинаковом расстоянии от круга слева и справа нарисовать маленькие кружочки
5 Залить всё, кроме маленьких кружочков