Паскаль:
var Gr, Pu, Ko, Sl,n ,m : integer;
begin readln(Gr, Pu, Ko, Sl); readln(n, m); Gr := Gr - n + m; if (Gr >= Pu) and (Gr >= Ko) and (Gr >= Sl) then writeln('Yes') else writeln('No')end.
Ответ:
а) 865 = 1101100001 = 1541 = 361
б) 785 = 1100010001 = 1421 = 311
в) 149 = 10010101 = 225 = 95
г) 683 = 1010101011 = 1253 = 2AB
д) 7260 = 1110001011100 = 16134 = 1C5C
символов всего.
бит - вес документа
байт
Кб - вес документа в килобайтах
Var
n:integer;
begin
n:=20;
while n<=320 do begin
Write(n,' ');
n:=2*n
end
end.
Результат работы
20 40 80 160 320
var
s:string;
begin
write ('Введите предложение: ');
readln(s);
if pos('с',s)>pos('т',s)
then writeln ('Буква «т» встречается раньше')
else writeln('Буква «с» встречается раньше');
end.