Program gt; var n:longint; begin readln(n); case n of 1..10000: if(n mod 400=0)or((n mod 4=0)and(n mod 100<>0))then writeln('YEs') else writeln('NO'); end; end.
Комп'ютер это сложный организм за которым нужно присматривать и следить за компонентами в особенности за кулерами,непонятно почему именно за ними сечас обьясню.кулер охлаждает важние детали такие как блок питания,процесор,видео карта которые при нагреве могут воспламенится или припой может потечь и всей системе может прийти срок или может испортится блок питания который питает систему,процессор который обрабатывает информацию,видео карту которая выводит и обрабатывает видео сигналы.но нерекомендуется пользоватся водным охлаждением или в народе их называют водянками потому-что вода может потечь на детали и к короткому замыканию! и нужно иметь антивирусную програму для защиты данных.
Var a,b,p,n,x,i:integer; begin writeln('Сколько примеров будешь решать:'); readln(n); for i:=1 to n do begin a:=random(10)+1; b:=random(10)+1; write('Сколько будет ',a,'+',b,'='); readln(x); if x=a+b then begin p:=p+1; writeln('Правильно'); end else writeln('Неверно'); end; writeln('Число правильных ответов: ',p); if p=n then writeln('Отлично, ты превосходно знаешь арифметику'); if (p<n) and (p/n>0.75) then writeln('Хорошо, ты неплохо знаешь арифметику'); if (p/n<=0.75) and (p/n>0.5) then writeln('Удовлетворительно, ты средне знаешь арифметику'); if (p/n<=0.5) and (p>0) then writeln('Плохо, ты не знаешь арифметику'); if p=0 then writeln('Отвратительно, ты абслютно не знаешь арифметику'); end.
Можно сделать, чтобы не только на сложение, а на все 4 действия.
var n:longint;
begin
readln(n);
case n of
1..10000: if(n mod 400=0)or((n mod 4=0)and(n mod 100<>0))then writeln('YEs') else
writeln('NO');
end;
end.