3) сбор сведений об окр.мире и протекающих в них процессах@
var chastnoe,cifra,x,y:integer;
begin
y:=237;
cifra:=(y div 100);//получаем первую цифру числа 237
chastnoe:=(y mod 100);//находим число получившееся после деления
x:=chastnoe*10+cifra;//находим число Х
writeln(x);//выводим
end.
1)
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
number:=abs(number)-2;
writeln(number);
readln;
end.
2)
program test;
var number, temp: integer;
begin
write('Enter the number: ');
readln(number);
temp:=number mod 10;
writeln(temp, '^2=', temp*temp);
readln;
end.
8 мин = 480 с
I = V * t (объем информации = скорость * время)
I = 10 Мбит/с * 480 с = 4800 Мбит = 600 Мбайт