Program Bid;
Uses crt;
var a,b,max:integer;
begin
write(' Введите целое число a=');
readln(a);
write(' Введите целое число b=');
readln(b);
if a>=b then max:=a
else max:=b;
writeln('Max=',max);
end.
Задание 2:Program Text;
var x:integer;
begin
write('Введите цифру 1 или любую :');
readln(x);
if x=1 then write(' В а с я')
else write(' П е т я');
end.
Задание 3:Program Text;
var x:integer;
begin
write('Введите цифру 1, 2 или любую :');
readln(x);
if x=1 then write(' В а с я')
else if x=2 then write(' П е т я')
else write('ERROR');
end.
Задание 4:Program MaxFrom3;
begin
writeln('Введите 3 числа: ');
var (a, b, c) := ReadInteger3;
write('Наибольшее число: ', Max(a,b,c));
end.
Компьютердің денсаулыққа кері әсері бірнеше факторлардан тұрады, олар электромагниттi, электростатикалық өрiс, ауаның иондалуы, оптикалық сәулелену, шу, жұмыс iстеу кезiндегi дененiң ширығуы. Осы факторлардың әрқайсысы бала денсаулығына керi әсер етуге өз үлесін қосады.
Объяснение:
Монитор алдында өткізілген ұзақ уақыт ерте ме, әлде кеш пе денсаулыққа кері әсерін тигізбей қоймайды. Ол нерв жүйесiнің бұзылуына, көру мүшесiне, иммунитетке, без және жыныс жүйелерiне әсер етуі мүмкін. Ұзақ та отыру, омыртқаға салмақ түсіріп, оның қыйсаюына әкелуі мүмкін.
