1 байт = 8 бит
1 Кб = 1024 байт = 8192 бит
40960 бит = 40960/8192 Кб = 5 Кб
1) 1+3=4 (2)
2) 4*2=8 (1)
3) 8*2=16 (1)
4) 16+3=19 (2)
5) 19*2=38 (1)
В ответе пишешь : 21121
program poezd;
var
s, v, vm, t : real;
begin
WriteLn('Введите скорость поезда(км/ч)');
read(v);
writeln('Введите время(в секундах)');
read(t);
vm := v * 1000 / 3600; //переводим км/ч в м/с
S := vm * t;
if S > 200 then
begin
writeln('Да, больше.');
end;
if S < 200 then
begin
writeln('Нет, меньше.');
end;
end.
1.
var a,b:string;c:integer;
begin
readln (a);
b:='a';
c:=pos(b,a);
if c<>0 then writeln ('Есть буква а') else writeln ('Нет буквы а');
end.