1. var a:integer; begin write('Введите число: '); readln(a); if a>0 then a:=a-10 else a:=a+10; writeln('a = ',a); end.
Пример: Введите число: 5 a = -5
2. var a,b,p:integer; begin writeln('Введите два числа: '); readln(a,b); if a*b<0 then p:=-2*a*b else p:=3*a*b; writeln('p = ',p); end.
Пример: Введите два числа: -3 -8 p = 72
3. var a,b,r:integer; begin writeln('Введите два числа: '); readln(a,b); if a>b then r:=a-b else r:=b-a; writeln('r = ',r); end.
Пример: Введите два числа: 25 48 r = 23
4. var r:integer; begin writeln('Введите рост: '); readln(r); if r>180 then writeln('высокий') else if r=180 then writeln('нормальный') else writeln('низкий'); end.
1. Он американский ученый, основоположник кибернетики. А также теории об искусственном интеллекте. Славу ему принесли его работы в математике и физике. Его большая роль в том, что именно он впервые смог понять огромное значение того, что информация будет использоваться в процессах управления.
2. Основатель теории информации, которая нашла свое место в современных системах связи. В 40-х годах века ввел понятие «бит».
3. Термин, который означает «выполняющееся действие по запросу», ввел Тед Нельсон в веке, в 1963 году.
4. В 1989 году. Изобретателем считают двух человек – Тима Бернерс-Ли и Роберт Кайо.
5. Эйлер, в честь которого назвали графическую схему, был ученым. Его сферой изучения была математика, физика, астрономия, химия, ботаника, музыка, медицина и другие направления. Он автор 600 трудов.
var a:integer;
begin
write('Введите число: ');
readln(a);
if a>0 then a:=a-10 else a:=a+10;
writeln('a = ',a);
end.
Пример:
Введите число: 5
a = -5
2.
var a,b,p:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a*b<0 then p:=-2*a*b else p:=3*a*b;
writeln('p = ',p);
end.
Пример:
Введите два числа:
-3 -8
p = 72
3.
var a,b,r:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a>b then r:=a-b else r:=b-a;
writeln('r = ',r);
end.
Пример:
Введите два числа:
25 48
r = 23
4.
var r:integer;
begin
writeln('Введите рост: ');
readln(r);
if r>180
then writeln('высокий')
else if r=180 then writeln('нормальный') else writeln('низкий');
end.
Пример:
Введите рост:
160
низкий
1. Он американский ученый, основоположник кибернетики. А также теории об искусственном интеллекте. Славу ему принесли его работы в математике и физике. Его большая роль в том, что именно он впервые смог понять огромное значение того, что информация будет использоваться в процессах управления.
2. Основатель теории информации, которая нашла свое место в современных системах связи. В 40-х годах века ввел понятие «бит».
3. Термин, который означает «выполняющееся действие по запросу», ввел Тед Нельсон в веке, в 1963 году.
4. В 1989 году. Изобретателем считают двух человек – Тима Бернерс-Ли и Роберт Кайо.
5. Эйлер, в честь которого назвали графическую схему, был ученым. Его сферой изучения была математика, физика, астрономия, химия, ботаника, музыка, медицина и другие направления. Он автор 600 трудов.