Program circle;
uses graphabc;
var
x:integer = 640;
y:integer = 400;
r:integer = 40;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
DrawCircle(x div 2,y div 2, r);
setbrushcolor(clred);
FillCircle(x div 2,y div 2, r)
end.
1) 1. водитель использует машину.
2. ребёнок играет с роботом.
2) 1. ✓
2. ✓
3. ×
4.✓
3) длина, ширина, длина, ширина
4)от P назад 4 направо 2
(я не понел где начинать, я начал с P)
Const n=5;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
writeln('Массив A в обратном порядке:');
for i:=n downto 1 do write(a[i]:4);
writeln;
end.
Пример:
<span>Массив A:
37 39 41 9 25
Массив A в обратном порядке:
25 9 41 39 37</span>
Пример реализации на VBA Excel
Вставляете два слова и жмете кнопку "Вычислить"
Саму программу можно посмотреть в встроенном в Excel редакторе VBA.
var
n,i: integer;
b: array[1..101] of integer;
begin
readln(n);
for i:=1 to n do
begin
read(b[i]);
if ((i mod 2 = 0) and (b[i]<0)) then
inc(b[101], b[i]);
end;
write(b[101]);
end.