Компьютердің денсаулыққа кері әсері бірнеше факторлардан тұрады, олар электромагниттi, электростатикалық өрiс, ауаның иондалуы, оптикалық сәулелену, шу, жұмыс iстеу кезiндегi дененiң ширығуы. Осы факторлардың әрқайсысы бала денсаулығына керi әсер етуге өз үлесін қосады.
Объяснение:
Монитор алдында өткізілген ұзақ уақыт ерте ме, әлде кеш пе денсаулыққа кері әсерін тигізбей қоймайды. Ол нерв жүйесiнің бұзылуына, көру мүшесiне, иммунитетке, без және жыныс жүйелерiне әсер етуі мүмкін. Ұзақ та отыру, омыртқаға салмақ түсіріп, оның қыйсаюына әкелуі мүмкін.
var x, a, b, k: integer;
begin
write('Введите число: ');
readln(x);
write('Введите цифру: ');
readln(a);
b := 0;
k := 1;
while x > 0 do //цикл пока данное число больше 0
begin
if x mod 10 <> a then // сравниваем последнюю цифру данного числа с указанной цифрой
begin // если последняя цифра данного числа не равна указанной цифре
b := b+(x mod 10)*k; // получаем новое число из числа b и последней цифры данного числа умноженной на коэффициент
k := k*10; // увеличиваем коэффициент (единицы, десятки и т.д.)
end;
x := x div 10; // отбрасываем последнюю цифру из данного числа
end;
writeln('Получилось: ', b);
end.
а*б=НОД(а,б)*НОК(а,б)
var a,b:longint;
function nod(a,b:longint):longint;
begin
if a= 0 then
nod:=b else
if b=0 then
nod:=a else
if a>b then
nod:=nod(a mod b,b) else
nod:=nod(a,b mod a);
end;
Begin
read(a,b);
writeln((a*b) div nod(a,b));
End.