2. Разработать программу, которая запрашивает ввод целого числа в переменную Z, определяет и выводит на экран сообщение, какое это число - положительное, отрицательное или равное 0. Отладить программу и проверить правильность ее работы на числах - 5, 0, 256, 10455.

3. Даны координаты точки на плоскости. Определить, в какой четверти лежит данная точка. Отладить программу, задав точки из различных четвертей самостоятельно.

4. Разработать программу, которая по введенному трехзначному числу определяет, является ли сумма его цифр двузначным числом, и есть ли в записи этого числа 4 или 7.

Question

Информатика

Савватей

18 августа, 20:07

2. Разработать программу, которая запрашивает ввод целого числа в переменную Z, определяет и выводит на экран сообщение, какое это число - положительное, отрицательное или равное 0. Отладить программу и проверить правильность ее работы на числах - 5, 0, 256, 10455.

3. Даны координаты точки на плоскости. Определить, в какой четверти лежит данная точка. Отладить программу, задав точки из различных четвертей самостоятельно.

4. Разработать программу, которая по введенному трехзначному числу определяет, является ли сумма его цифр двузначным числом, и есть ли в записи этого числа 4 или 7.

+3

Ответы (1)

Знаете ответ на вопрос?

Гема · Answer 1

Var Z:integer;

Begin

Write ('Z = ') ; ReadLn (Z) ;

if Z>0 then WriteLn ('Положительное')

else if Z=0 then WriteLn ('Равное нулю')

else WriteLn ('Отрицательное')

End.

Пример:

Z = - 5

Отрицательное

Z = 0

Равное нулю

Z = 256

Положительное

Z = 10455

Положительное

Var

X, Y:real;

Begin

Write ('X = ') ; ReadLn (X) ;

Write ('Y = ') ; ReadLn (Y) ;

if (X = 0) and (Y = 0) then WriteLn ('Начало координат')

else if (X=0) then Write ('Ось абсцисс')

else if (Y=0) then WriteLn ('Ось ординат')

else if (X>0) then

if (Y>0) then WriteLn ('Первая четверть')

else WriteLn ('Вторая четверть')

else

if (Y<0) then WriteLn ('Третья четверть')

else WriteLn ('Четвёртая четверть')

End.

Пример:

X = 0

Y = 0

Начало координат

X = 0

Y = 1

Ось абсцисс

X = 1

Y = 0

Ось ординат

X = 1

Y = 1

Первая четверть

X = 1

Y = - 1

Вторая четверть

X = - 1

Y = - 1

Третья четверть

X = - 1

Y = 1

Четвёртая четверть

Var

a, b, c, S:integer;

Begin

Write ('Введите трёхзначное число: ') ; ReadLn (A) ;

b: = (a div 10) mod 10;

c:=a mod 10;

a:=a div 100;

S:=a+b+c;

if (9
else WriteLn ('Сумма цифр (', S,') не является двузначным числом') ;

if (a=4) or (b=4) or (c=4) then WriteLn ('Цифра 4 есть') else WriteLn ('Цифры 4 нет') ;

if (a=7) or (b=7) or (c=7) then WriteLn ('Цифра 7 есть') else WriteLn ('Цифры 7 нет')

End.

Пример:

Введите трёхзначное число: 74

Сумма цифр (11) - двузначное число

Цифра 4 есть

Цифра 7 есть

Введите трёхзначное число: 71

Сумма цифр (8) не является двузначным числом

Цифры 4 нет

Цифра 7 есть

Введите трёхзначное число: 13

Сумма цифр (4) не является двузначным числом

Цифры 4 нет

Цифры 7 нет