Регистрация
makssssimfrank
13.04.2023 14:22
Информатика
Есть ответ 👍

❗ Ввести число. Якщо воно невід'ємне, то відніміть від нього 50, у противному випадку додати до нього 100. (Написати програму) НА РУССКОМ ❗Введите число. Если оно неотрицательно, то вычтите от него 50, в противном случае добавить к нему 100. (Написать программу)

300
500
Посмотреть ответы 2

Ответы на вопрос:

tsoikin77
tsoikin77
4,4(87 оценок)

program prg;

var

 number: integer;

begin

 write('Input number: ');

 read(number);

 if number >= 0 then

   number := number - 50

 else

   number := number + 100;

 writeln('New value: ', number);

end.

лаллах12
лаллах12
4,4(88 оценок)
Во вложении - файл рабочей книги ms excel 2003. макросы - в проекте для первого листа. ниже их текст. sub ex1()       b = cells(1, 2)       s = 0       for i = 11 to b - 1               s = s + i       next i       cells(2, 2) = s end sub sub ex2()       i = 5       for j = 16 to 99 step 8               cells(i, 1) = j               i = i + 1       next j end sub

Популярно: Информатика