Интернетті әлем болып қолдану
//з № 1var s,d,f,max:integer;beginRead(s,d,f);if (s > d)and (s > f) thenmax:= selse if (d > s) and (d > f) thenmax:= delse if (f > d) and(f > s) then max:=f;write('max ',max);end.
//з № 2 var x:real; r:integer;beginwrite('Введите число x =');Read(x);if Frac(x)=0 then beginwriteln('x - целое число!');r:=round(x);if ((r mod 2)=0) then writeln('Число четное')else writeln('Число нечетное');endelse writeln('x - дробное число!')end.
//з № 3var a:integer;beginwrite('Введите число а =');Read(a);if (a > 0)and (a <= 5) thena:= a *a*aelse if (a > 5) thena:= a*aelsea:=a;write('a = ',a);end.
Объяснение:
Әлеуметтік желілер - ермектері бірдей адамдардың Интернетте бірігетін қоғамдастық сайттары. Осы сайттарда адамдар жедел түрде мәліметтер алмасады және достар табады. Бірақ осы сайттар арқылы тек қатынасып қана қоймай, адамдар музыка, видео іздеуі де мүмкін. Әлеуметтік желілерде адамдар өзі жайлы мәлімет тастап қалдыра алады (туған күні, оқыған мектебі, университеті, ермектері және т.б.), басқа қатынасушылар осы мәліметтерді пайдаланып сол адамды таба алады.