Составить кроссворд по информатике 8 класс семакин 10 слов по параграфу 10-15

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end. 

15 гб = 15360 мбайт = 122880 мбит

32 мин = 1920 с.

скорость = 122880/1920 = 64 мбит/с

var n,count,sum: integer;

begin

    read(n);

    count: =0;

    sum: =0;

    while (n< > 0) do

        inc(count);

        sum: =sum+(n mod 10);

        n: =n div 10;

    end

end.

проверяем если n нечетное и n=8 то 31 день

если n четное и n не равно 2 то 30 дней

если n=2 и a=0 то 28 дней

если n=2 и a=1 то 29 дней