//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.
var n:integer;
Begin
read(n);
if (n>99) and (n<1000) then writeln('Yes')
else writeln('No');
End.
AND
(решено вручную подстановкой, очень плохой метод, иных, увы, не знаю)
Ну что ж ,снова я )
Честно говоря немного не понял задания ,но сделаю что могу =) Наверное имеется ввиду вес ОДНОГО символа этого сообщения ? Если так ,то :
Просто делим 450 битов на 150 символов.
450\150=3 бита
Ответ : 3 бита
ну группой файлов можно назвать папку архив и zip файл ну а если что то не так скажи