Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
грубо и сердито:
var c: longint;
begin
read(c);
c: =c mod 10;
c: =sqr(c);
writeln(c);
end.
для матрицы 8*8
код
00111111
01000001
10000001
00010001
00100001
11000001
объем 8 байт
для символьного 1 байт в ascii
2 байта в unicode
2^6 = 64 - значит 6 лампочек
var a: array [1..10] of integer;
n,i: integer;
{vvod massiva skopirovat suda}
for i: = 1 to 10 do begin
if a[i] mod 10 = 0 then
n: =n+1;
end;
writeln(n);
Популярные вопросы