алиса673

30.04.2021 14:30 •  Информатика

1)Условный оператор: if(x>2)theny:=x+10elsey:=x−23.
Выбери действие, которое будет выполняться в случае истинности условия:

y:=x+10
x>2
y:=x−23
2)Дана программа на языке Паскаль.
Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 62, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки.

program ves;
const
A1='легкая категория';
A2='средняя категория';
var
s : integer;
begin
write('введите вес спортсмена
= ');
readln(
);
if
<
then writeln(A1) else writeln(A2);
readln;
end.
3)Дано целое число. Если оно является положительным, то прибавить к нему 20; в противном случае не изменять его. Вывести полученное число.

program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a < 0 then a:=a+20;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+20;
writeln(a);
readln;
end.
4)Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 7; если нулевым, то заменить его на 17. Вывести полученное число.

program zadaca;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=17 else a:=a+1
else a:=a-7;
writeln(a);
readln;
end.
program zadaca;
var
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=17 else a:=a+1
else a:=a-7;
writeln(a);
readln;
end.
program zadaca;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=17 else a:=a+1
else a:=a-7;
end.
5)Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0)
Запусти программу и введи значение x=11.

Число выведенное на экран:
6)
Определить, принадлежит ли точка y отрезку [k;m].

var
k,m,y:real;
begin
write('
=');
readln(
);
write('m=');
readln(m);
write('y=');
readln(
);
if (y>=k) and (y<=
) then writeln ('yes') else writeln('no');
readln;
end.
7)Выведи на экран большее из двух данных чисел.
Запиши программу на языке Паскаль, выведи ответ на экран, если 1,42306 и 2,5931.

1.bmp
2.bmp
3.bmp

На экране

vvedi dva chisla
1,42306 2,5931
8)Дано целое число. Если оно является положительным, то прибавить к нему 59; в противном случае не изменять его. Вывести полученное число.

program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a < 0 then a:=a+59;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a;
writeln(a);
readln;
end.
program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+59;
writeln(a);
readln;
end.
9)Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0)
Запусти программу и введи значение