1)program primer1;
var х,у,z:integer;
{ описание переменных }
begin { начало программы }
х := 3; { установка значения х }
у := 5; { установка значения у }
z := х + у; { вычисление суммы }
write(z); {вывод результата вычисления на экран }
end. { конец программы }
2) program vetvlenija;
uses crt;
var A:real;
begin
clrscr;
write ('Введите число A: ');
readln (A);
if A>=0 then
writeln ('Вы ввели положительное число');
readln
end.
3) program cikle;
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
for i := 1 to n do
write ('(*) ');
readln
end.
Объяснение:
1) линейный, без ничего
2) ветвление - if then
3) цикл - for
1)Еще недавно, говоря о роботах, мы имели в виду научную фантастику или сильно отдаленное будущее. Но технологический процесс с невообразимой скоростью меняет окружающий мир, заставляя меняться нас и наши подходы к образованию детей. Робототехника на сегодняшний день является самым перспективным из инновационных направлений.
Ведущие эксперты прогнозируют бум сервисной и персональной робототехники уже к 2025 году, а это означает, что потребуются десятки тысяч специалистов новой формации. Самой востребованной специальностью после 2025 года будут программисты-робототехники. И начинать осваивать новые профессии нужно уже сейчас, чтобы сегодняшние школьники могли уверенно войти в жизнь.
2)Ро́бот — автоматическое устройство, предназначенное для осуществления различного рода механических операций, которое действует по заранее заложенной программе.
3)По прогнозам консалтинговой компании A.T. Kearney уже через 20 лет некоторые рабочие места, на которых работают люди, займут роботы. DW выяснила, в каких отраслях искусственный интеллект будет конкурировать с человеком.
Объяснение:
begin
read(n);
if (n mod 2 ) = 0 then n:=n*2
else n:=n*3;
end.