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)
Запусти программу и введи значение
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
t = t + MID$(s, i, 1)
t = t + MID$(s10, INT(10 * RND + 1), 1)
t = t + MID$(s20, INT(20 * RND + 1), 1)
t = t + MID$(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END
Программа дешифровки:
DIM s AS STRING, t AS STRING, i AS INTEGER
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
t = t + MID$(s, i, 1)
NEXT i
PRINT t
END
begin
writeln('введите число');
readln(a);
g:=0;
c:=0;
d:=0;
i:=0;
f:=0;
writeln('введите число для сравнения');
readln(h);
for b:=a downto 1 do begin
if a mod b = 0 then writeln('его делитель ==>',b);
if a mod b = 0 then c:=b+c;
if a mod b = 0 then if b mod 2 = 0 then d:=d+b;
if a mod b = 0 then if b mod 2 <> 0 then i:=i+1;
if a mod b = 0 then f:=f+1;
if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i
f a mod b = 0 then if b>h then n:=n+1;
end;
writeln('сумма его делителей ==>',c);
writeln('сумма его чётных делителей ==>',d);
writeln('количество нечётных делителей ==>',i);
writeln('количество чётных делителей ==>',g);
writeln('количество делителей ==>',f);
writeln('количество делителей больших b ==>',n);
end.