Ответ:
uses GraphABC;
var
a: boolean;
begin
SetBrushColor(clBlue);
SetGradientBrushSecondColor(clRed);
SetPenMode(2);
FillRect(100,100,300,300);
end.
Объяснение:
Var n,a,i,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln(s);
end.
Пример:
3
12
54
91
157
var
a, b : real;
begin
writeln('ax=b');
write('введите a, b: ');
readln(a, b);
writeln(a, 'x=', b);
if (a = 0) and (b = 0) then writeln('x= бесконечное множество')
else if (a = 0) and (b <> 0) then writeln('уравнение не имеет решений')
else begin
writeln('x=', b, '/', a);
writeln('x=', b/a);
end;
end.
начало
1 Взять котёл.
2 Налить воду в ведро
3 Перелить воду из ведра в котёл.
4 Развести огонь
5 Поставить котёл на огонь.
6 Взять топор
7 Положить топор в котел.
8 Найти крупу
9 Добавить крупу в котел
10 Достать чистую посуду
11 Снять котёл с огня.
12 Положить получившуюся кашу в посуду.
13 Найти масло
14 Добавить в кашу масло
конец
Память находится в компьютере.
Солнце часть солнечной системы .
Автомобиль дороже велосипеда.
Колесо часть автомобиля.