В сообщении "Завтра в школу" 14 символов, включая пробелы. При стандартном кодировании 1 символ занимает 1 байт, следовательно все сообщение будет занимать 14 байтов
Var
n,i : Integer;
Begin
Readln(n);
i:=1;
While (i+1)*i div 2<=n do Inc(i);
Writeln(i);
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа через пробел:');
var (s1,p1):=ReadReal2('Введите через пробел из сумму и произведение:');
var (s2,p2):=(a+b,a*b);
if s1=s2 then Writeln('Сумма верна')
else Writeln('Сумма не верна, ',s2);
if p1=p2 then Writeln('Произведение верно')
else Writeln('Произведение не верно, ',p2)
end.
<u>Пример</u>
Введите два числа через пробел: 1.4 -2.5
Введите через пробел из сумму и произведение: -1.1 -3.25
Сумма верна
Произведение не верно, -3.5
1.Відкрити два вікна:папки 10 клас і папки 11 клас
2.Виділити у вікні папки 10 клас всі об'єкти
3.Виконати команду Правка вирізати
4.Клацнути на вільному місті вікна папки 11 клас
5.Виконати команду Правка вставити
Скину ответ через 10 минут ;)))))