PascalABC.NET 3.3
program journal;
var
sum, mark, count, n: integer;
check: boolean;
begin
sum := 0;
check := true;
count := 0;
writeln('Введите количество оценок: ');
readln(n);
if (n > 0) then begin
while (count <> n) do
begin
readln(mark);
inc(sum, mark);
if (mark < 4 ) then check := false;
inc(count);
if (count = n) then writeln('Ввод окончен!');
end;
end else writeln('Error!');
if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');
end.
Если алфавит на 64 символа, то один символ займет 6 бит
Общий объем текста 600 бит или 75 байт
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.
Приходить на работу нетрезвым
не красть еду у коллег
грубо и вызывающе себя вести неприемлемо
нельзя зависать в соц сетях
играть в комп игры
нельзя нецензурно выражаться
не уместны личные беседы по телефону
надо выглядеть чисто и опрятно
здоровайтесь не опаздывайте
помнить о времени,оно у всех ограничено
и конечно не провоцировать ссоры в коллективе
как то так)))
Никакие.
Доказываю:
Попробуйте найти 2 целых числа от 1 до 99, которые в сумме составляют 100 и если инвертировать одно из них, получается второе число. Это невозможно, а максимально близкий результат - 90 ; 09