27=1*2(в четвертой степени)+0*2(в третей степени)+1*2(во второй степени)+1*2(в первой степени)+1*2(в нулевой степени)=10111
14=1*2(в третей степени)+1*2(во второй степени)+0*2(в первой степени)+0*2(в нулевой степени)=1100
запишем условие: V=10Кб/с, t=5 сек, I-?
решение: количество переданной информации можно рассчитать по формуле I=V*t
Выразим скорость передачи информации в байтах/сек
V=10*1024 =10240 б/сек
Теперь найдем I=10240*5=51200 байт это и есть решение задачи
Может получиться так:
//Pascal ABC.NET v 3.3
var
x, s: integer;
begin
readln(x);
s := (x div 100) + (x mod 100) + (x mod 10);
writeln(s);
end.
Удаление
копирование
перемещение
вставка
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.