Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10.

5-9 класс

Вывести полученное число.

Adil050598 19 марта 2017 г., 7:01:29 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
GDragona
19 марта 2017 г., 8:03:43 (7 лет назад)

var a : integer;
begin 
readln(a); 
if a > 0 then a := a + 1; 
if a < 0 then a := a - 2; 
if a = 0 then a:= 10; 
writeln(a);
end.

+ 0 -
элирыжий
19 марта 2017 г., 8:55:07 (7 лет назад)

Как я понял, тебе нужно составить программку, я сделал на паскале


var a:integer;
begin
read (a);
if a>0 then
a:=a+1;
if a<0 then
a:=a-2;
if a=0 then
a:=10;
write(a);
end.

Ответить

Другие вопросы из категории

Постройте электронную таблицу " Оплата электроэнергии " для расчёта ежемесячной платы за расход электроэнергии в течение года. Исходный информацией

являются показания счетчика в начале каждого месяца и стоимость одного киловатт-часа.

Примером процесса обработки информации есть:

1.распространение сведений средствами массовой информации
2.сохранение структуры данных и их значений
3.ограничение доступа к данным
4.создание банков данных и баз знаний


СРОЧНО ПОМОГИТЕ ПЛИЗ

задали сделать игру в повер поинт я почти сделал но от вас требуется чтобы можно было вводить название 2 команд и чтобы считались правельные ответы(очки)нечего изменять ненада я сам всё доделаю
просто нужно возможность писать 2 команды и считали очки,балы,правелльные ответы
ниже я преложил сам документ

Помогите решить задачи.

1.Алфавит содержит 256 букв. какое количество информации несет одна буква.
2.Сообщение, записанное буквами из 256 символьного алфавита, содержит 20 символов. Какой объем информации в битах оно несет?
3.Информационное сообщение объемом 600 бит содержит 150 символов. Какова мощность алфавита?
4.Объем сообщения, содержащего 50 символов, составил 250 бит. Каков размер алфавита, если объем его составил 200 бит?
5.Сколько символов содержит сообщение, записанное с помощью 16 символьного алфавита, если объем его составил 200 бит?
6.В книге 90 страниц. На каждой странице 60 строк по 80 символов в строке. Вычислить информационный объем книги.

Читайте также

решите пожалуйста задачи на языке pascal abc net.

f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.



Вы находитесь на странице вопроса "Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.