81920 бит <span>~= 10 </span>KB<span> 240 </span><span>B
В твоем случае - 2 вариант ответа</span>
var
a, b, y, x: real;
k: integer;
begin
readln(a, b);
k := 0;
if a * a = b * b then writeln('a*a=b*b');
if a * a > b * b then
begin
x := 1;
repeat
y := sin(x) + 0.12;
if y < 0 then k := k + 1;
x := x + 0.2;
until x > 3;
end;
writeln('Y = ', y);
writeln('Кол-во отрицательных значений функции: ', k);
<span>end.</span>
Горизонталь:
3. свойство
5. род
7. элемент
9. линейка
10. класс
13. ложное
14. запись
15. ноль
16. девять
17. адрес
19. многоуровневый
вертикаль:
1. номер
2. процессор
3. строки
4. значение
6. два
8. алфавитный
11. сканер
16. длина
18. енот
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
Program z1;
var
a,b,c,d:integer;
begin
writeln('Введите число a и число b');
readln(a,b);
c:=sqr(max(a,b));
d:=min(a,b)+1;
writeln('Первое число ',c,', второе число ',d);
<span>end.
Исправил</span>