var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.
(net)- Доменне им'я, використовується Для мережевих структур
73 символа * 1 байт (вес одного) = 73 байта.
Либо 146, так как неизвестно в какой кодировке было записано высказывание.
2)
000 111 10
C O H
1) В диаграмме площади секторов относятся как 1:2:2:3
В2=С1-D1=3-1=2
C2=D1-1=2-1=1
D2=A1-B1=4-2=2
A1 должно быть =3 - = А1-1=4-1=3
ответ : 2) +А1-1
var n:integer;
function f(x:integer):real;
begin
if x=1 then f:=1 else f:=x+f(x-1);
end;
begin
write('Введите число N ');
readln(n);
write('сумма равна ',f(n));
end.
лови бро затупил
7 937 082 20 07 киви