Ответ:
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.
Так, адача похожая на предыдущую
Переведем килобайты в биты:
100 килобайт * 1024 байта в килобайте = 102400 байт.
переведем в биты:
102400 * 8 бит в байте = 819200 бита в сообщении.
Добавим избыточность. Нам по условию надо добавить 20% информации
819200*1.20 = 983040 бит надо передать.
Рассмотрим пропускную способность канала
10 мегабит\секунду. переведем в килобиты:
10*1024 килобит в мегабите = 10240 килобит в секунду.
переведем в биты в секунду = 10240*1024 = 10485760 бит в секунду
разделим, чтобы определить время:
983040 бит / 10485760 бит в секунду = 0.09375 секунд
ответ: 0.09375 секунд
1) program ab;vars:string;i,k:integer;begins:='мама';for I:=1 to length(s) do begin k:=pos('м',s); if k<> 0 then begin delete(s,k,1); insert('п',s,k);end; end; writeln(s); end.
2 )program ab;
vars:string;i,k,n,j:integer;beginreadln(s);n:=0;k:= length(s) ;for i:= 1 to (k div 2) do
if s[i]<>s[k-i+1] thenn:=1; if n=0 then Writeln('Перевёртыш') else Writeln('Не первёртыш'); readln(j); end.
var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.