Разделить клавиши на клавиатуре компьютера по функции и заполнить таблицу:1.Буквенно цифровые клавиши 2.Кнопки управления курсором 3. Управляющие клавиши 4.Вс клавиши 5.Функциональные клавиши
Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй. var i:integer; begin writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20'); readln end.
Вывести квадраты чисел от 1 до 10 var i: integer; begin for i:=1 to 10 do writeln(i:4,' ',sqr(i):4); readln end.
Число n вводят с клавиатуры.Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие) var i,n:integer; begin writeln('Введите кол-во повторов числа: '); readln(n); for i:=1 to n do writeln('5'); readln end.
Var m : array[0..6] of Integer; i,k,N : Integer; Begin For i:=0 to 6 do m[i]:=0; Readln(N); k:=6; While N>0 do Begin If N>=Power(2,k) then Begin N:=N-Trunc(Power(2,k)); Inc(m[k]); end else Dec(k); end; For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.'); end.
Еще вариант: Const NN = 7; money : array[1..7] of Integer = (1,2,4,8,16,32,64); Var m : array[1..NN] of Integer; i,k,N : Integer; Begin For i:=1 to NN do m[i]:=0; Readln(N); k:=NN; While N>0 do Begin If N>=money[k] then Begin N:=N-money[k]; Inc(m[k]); end else Dec(k); end; For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.'); end.
var
i:integer;
begin
writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20');
readln
end.
Вывести квадраты чисел от 1 до 10
var
i: integer;
begin
for i:=1 to 10 do
writeln(i:4,' ',sqr(i):4);
readln
end.
Число n вводят с клавиатуры.Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие)
var
i,n:integer;
begin
writeln('Введите кол-во повторов числа: ');
readln(n);
for i:=1 to n do
writeln('5');
readln
end.