Объяснение:
Сегодня, интернет есть почти в каждом доме. В интернете можно найти много очень полезной информации для учебы или для чего-нибудь другого. Многие люди смотрят в интернете фильмы и играют в игры. Также, в интернете можно найти работу или даже новых друзей. Интернет не терять связь с родственниками и друзьями, которые живут далеко. Благодаря интернету с ними можно связаться в любую минуту. Мама очень часто готовит вкусные блюда, которые нашла в интернете. Еще, интернет и тем, кто любит читать, но не имеет возможности часто покупать новые книги.
С одной стороны – интернет является очень полезным, потому что содержит очень много разной информации. В интернете можно найти все, что интересует. Но иногда, интернет становится злом и может принести вред. Если человек проводит в интернете слишком много времени, то может не успевать с остальными делами. Поэтому, нужно контролировать время, которое проводится за интернетом. Еще, очень многие проводят время в интернете вместо того, чтобы погулять с друзьями на улице. Наверное, именно поэтому, родители не разрешают мне проводить за интернетом все свободное время.
Но, все-таки преимуществ у интернета намного больше, чем недостатков. Есть очень много полезных сайтов, которые в учебе. Еще, лично мне, очень нравится общаться в интернете с теми, у кого похожие увлечения. Например, я люблю фотографировать и поэтому зарегистрировалась на нескольких сайтах фотолюбителей. Участники сайта выкладывают свои работы, подсказывают и новичкам.
Так что, интернет является отличным во многих ситуациях, нужно только уметь находить информацию. Также, важно не ставить интернет на первое место и не забывать о реальном общении и о занятиях спортом.
1) var x:integer;
begin
readln (x);
if x mod 2=0 then
writeln ('Четное')
else
writeln ('Нечетное');
end.
2) var x,y,z,mx,mn:integer;
begin
readln (x,y,z);
x:=x*x;
y:=y*y;
z:=z*z;
mx:=max(x,y,z);
mn:=min(x,y,z);
writeln (mx);
writeln (mn);
end.
3) var x,y,z:integer;
begin
readln (x);
while x>0 do begin
z:=x mod 10;
x:=x div 10;
if z=3 then
y:=y+1;
end;
writeln (y);
end.