var i,a,b,a1:integer;
begin
readln(a,b);
a1:=a;
for i:=1 to a1 do begin
if (a mod i=0) and (b mod i=0) then begin
a:=a div i;
b:=b div i;
end;
end;
writeln('c=',a,' d=',b);
end.
запишем условие: V=10Кб/с, t=5 сек, I-?
решение: количество переданной информации можно рассчитать по формуле I=V*t
Выразим скорость передачи информации в байтах/сек
V=10*1024 =10240 б/сек
Теперь найдем I=10240*5=51200 байт это и есть решение задачи
1)запрещается трогать проводы,вилки
2)нельзя трогать компьютер мокрыми руками
3)нельзя включать интернет без разришения учитиля
4)если на компьютере появилось неизвесное вам окно предупредить учителя.
5)не знаю придумай сама(сам)
=)
uses crt;
var n,k,a,b:string;
begin
write('Введите четырёхзначное число: ');
readln(a);
n:=copy(a,1,2);
k:=copy(a,3,2);
b:=k+n;
writeln(b);
end.