Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10.
5-9 класс
|
Вывести полученное число.
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.
Как я понял, тебе нужно составить программку, я сделал на паскале
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 символов в строке. Вычислить информационный объем книги.
Рота ...,...,...,...,полк. - Вставить 4 слова))Хотябы
Читайте также
нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо
(язык программирования паскаль)
нужно решить в рандоме!! ! :(
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.