Var
year: integer;
begin
write('Введите год: ');
readln(year);
if year mod 4 = 0 then
if year mod 100 = 0 then
if year mod 400 <> 0 then
write('365 дней')
else write('366 дней')
else write('366 дней')
else write('365 дней');
end.
<u>Цифры- знаки для записи чисел (числовые знаки)</u>
//PascalABC.NET
begin
var product: int64;
product := 1;
var seq := range(1, 99).Where(x -> x mod 2 <> 0).Select(x -> x * x);
foreach var x in seq do
product := product * x;
write(product);
end.
1символ=2 байта 2*32*64=4096 байт переводим байты в килобайты 4096/1024=4килобайта 8/4=2 стр.