var
a,b,c: integer;
begin
readln(a,b,c);
writeln(a+b+c)
end.
Audi; BMW; Volkswagen; Datsun; KIA
В научно-технических статьях, в учебниках, в справочниках знаки формальных языков встречаются постоянно.
Это небольшие рисунки, схемы, пиктограммы. Они применяются для сокращения текстов, для выражения закономерностей, для описания различных структур.
Примерами таких языков служат язык математических формул, нотная грамота, языки программирования и т.д.
Таким образом, знаки формальных языков можно встретить в текстах на естественных языках, например, в учебниках математики, в справочниках по химии, в самоучителях игры на музыкальных инструментах, в книгах по программированию.
var a, i: integer;
begin
a := 1;
for i := 1 to 10 do
begin
writeln(a:3, ' ', a*a:5, ' ', a*a*a:8);
a := a + i;
end;
end.
Тестовое решение:
1 1 1
2 4 8
4 16 64
7 49 343
11 121 1331
16 256 4096
22 484 10648
29 841 24389
37 1369 50653
46 2116 97336
Ответ:
var a:integer;
function Name1(a:integer):integer;
var i,c: integer;
begin
i:=0;
c:=2;
while i < 1 do
begin
if c*c=a then
writeln('Число '+a+' является квадратом четного числа '+c);
if c*c<a then
c:=c+2
else
i:=1;
if c*c>a then begin
writeln('Число '+a+' не является квадратом четных чисел');
i:=1;
end;
end;
end;
begin
writeln('Введите число:');
readln(a);
Name1(a);
end.
Объяснение: