Задание 1 32 * 40 * 64 * 8 = 655360
Задание 2 48 * 40 * 64 * 8 = 983040
Задание 3 64 * 40 * 64 * 8 = 1310720
Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
354
235, 15
472, 35
417, 165
317, 35
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Вводите:');
Write('Кол-во слов: ',s.ToWords.Count)
end.
<u><em>Тестовое решение</em></u>
Вводите: А роза упала на лапу Азора
Кол-во слов: 6