
Landalis
5 год назад
Напишите программы,для Паскаля .1. Дано число Х. Определить положительное число или отрицательное .2. Даны три целых числа. Определить количество положительных чисел.3. Дано число Х. Определить чётное число или нечётное.
ОТВЕТЫ

Anka
Oct 24, 2020
1.
var x:integer;
begin
readln(x);
if x>0 then writeln(x,' - положительное')
else if x<0 then writeln(x,' - отрицательное')
else writeln(x,' = 0');
end.
Пример:
-125
-125 - отрицательное
2.
var x,y,z,k:integer;
begin
readln(x,y,z);
if x>0 then k:=k+1;
if y>0 then k:=k+1;
if z>0 then k:=k+1;
writeln('количество положительных чисел = ',k);
end.
Пример:
-125 84 67
количество положительных чисел = 2
3.
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln(x,' - чётное')
else writeln(x,' - нечётное');
end.
Пример:
125
125 - нечётное
var x:integer;
begin
readln(x);
if x>0 then writeln(x,' - положительное')
else if x<0 then writeln(x,' - отрицательное')
else writeln(x,' = 0');
end.
Пример:
-125
-125 - отрицательное
2.
var x,y,z,k:integer;
begin
readln(x,y,z);
if x>0 then k:=k+1;
if y>0 then k:=k+1;
if z>0 then k:=k+1;
writeln('количество положительных чисел = ',k);
end.
Пример:
-125 84 67
количество положительных чисел = 2
3.
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln(x,' - чётное')
else writeln(x,' - нечётное');
end.
Пример:
125
125 - нечётное
17
Смежные вопросы: