Var A: arrey[1..19,1..2] of integer;
Var x, i: integer;
Begin
For i:=1 to 19 do begin
A[i,1]:=i; A[i,2]:=i*i;
Writeln (A[i,1]:4, A[i,2]:4)
End
End.
---------------
Или если без массива, то так:
Const n=12;
Var x,y: integer;
Begin
For x:=1 to n do begin
y:=x*x;
Writeln (x:4,y:4)
End
End.
Program znanija_com; //znanija.com
var
a,b,c:integer;
Begin
readln(a,b); //Введем числа с клавиатуры
c:=a+b; //Найдем сумму чисел
writeln(c); //Выведем сумму чисел на экран
End.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(' x1 x2 x3 y');
for var x1:=false to true do
for var x2:=false to true do
for var x3:=false to true do
Writeln(x1:6,x2:6,x3:6,x1 and x2 or x3:6)
end.
<u>Результат во вложении, поскольку тут шрифт пропорциональный и невозможно показать вывод таким, каков он на самом деле.</u>
В мире компьютера
повседневные приложения
Решается от обратного: 10:=<span><span>(x+5)</span>+(x+5)</span>
Значит, x = 0.
Проверка подстановкой.