Напиши нц и кц перед нч например 9 раз не пеши раза а то ошибка будет нашми энтер и пеши вниз;закрасить потом вверх вниз закрасить всё через точку с запетой и всё
1 любви
2 температурах
3 выполнять
4 генераторов
5 работу
Для установки операционной системы :
1) Заходим в BIOS и устанавливаем загрузку с CD-ROM
2) Втыкаем в CD-ROM установочный диск
3) Выходим из биоса сохраняя настройки
4. Автоматический ребут ( перезагрузка компьютера )
5. Начинается процесс загрузки с CD ( если только имеет верный формат )
6. Далее всё на русском
После установки :
Программа установки проверяет пк
И вводишь данные
всё.
Сделай лучшим решением заранее благодарен
Var
i1, i2, i3, i4, i5, i6: byte;
k: Longint;
begin
for i1 := 0 to 9 do
for i2 := 0 to 9 do
for i3 := 0 to 9 do
for i4 := 0 to 9 do
for i5 := 0 to 9 do
for i6 := 0 to 9 do
if i1 + i2 + i3 = i4 + i5 + i6 then begin
Writeln(i1, i2, i3, i4, i5, i6);
k := k + 1;
end;
writeln(k);
end.
var
money: array[1..7]of integer;
count: array[1..7]of integer;
s, i: integer;
begin
money[1] := 1;
money[2] := 2;
money[3] := 5;
money[4] := 10;
money[5] := 50;
money[6] := 100;
money[7] := 500;
write('s = ');
readln(s);
i := 7;
repeat
if s >= money[i] then begin
s := s - money[i];
count[i] := count[i] + 1;
end
else i := i - 1;
until s <= 0;
for i := 7 downto 1 do
if count[i] > 0 then
writeln(money[i], ' p. = ', count[i], ' шт.')
end.
Program n1;
var a: array[1..10] of integer;
k,kol,i: integer;
begin
randomize;
write('k=');
readln(k);
kol:=0;
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]<k) then kol:=kol+1;
end;
writeln;
writeln('кол-во эл меньше ',k,': ',kol);
end.