tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу в
Написать программу в паскале: 1.удвоить заданное число, если оно положительное, утроить его, если оно отрицательно, и увеличит его на 1, если оно равно нулю.
stupid28
3 04.06.2019 04:00
2
Ответы
kinderlolo19999
05.07.2020 08:53
Var a:real;
begin
readln(a);
if a>0 then a:=a*2;
if a<0 then a:=a*3;
if a=0 then a:=a+1;
writeln(a)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Cherry5858
03.08.2019 03:10
Укажите пары объектов , которые находятся в отношениях объект - модель : 1. москва - город 2. человек -манекен 3.катер- техническое описание катера 4.город-макет...
влад2317
03.08.2019 03:10
Какие из моделей не является динамическими ? 1.уравнение хим.реакции 2.программа телепередач, напечатанных в газете 3.заводная игрушка 4.эскизы костюмов к спектаклю...
Olesya11111111111111
03.08.2019 03:10
Информатика свой пример из жизни получить( читать книгу) ,сохранить, обработать, получить, сохранить, обработать....
mytaevafati
23.03.2021 04:21
Если средний у меня 2,8? Тогда у меня будет 3 или же 2? Тема говорится про СГО...
СветланаСветик3
23.03.2021 05:32
С клавиатуры вводится строка содержащая буквы и пробелы, посчитать количество слов в строке если между буквами в строке может стоять более одного пробела. Составить...
natapova12
31.07.2019 22:20
{процентная ставка по вкладу составляет p процентов годовых, которые прибавляются к сумме вклада в конце года. вклад составляет x рублей y копеек. определите размер...
asflower
07.12.2021 17:08
При переводе в дискретную форму аналогового сигнала длительностью 1 минута 4 секунды использовались частота дискретизации 44 Гц и 16 уровней дискретизации. Дано и...
soykaksyu
07.12.2021 17:07
Подготовить презентацию и доклад на тему связанную с робототехникой. Если есть время напишите хоть немного, мне просто завтра перед завучем защищать а я не подготовил...
Алиналабвдк
09.12.2020 16:31
ПОСТРОЙТЕ И ЗАПОЛНИТЕ ТАБЛИЦУ ИСТИННОСТИ ДЛЯ ЛОГИЧЕСКОГО ВЫРАЖЕНИЯ (ДЛЯ КАЖДОГО ДЕЙСТВИЯ – ОТДЕЛЬНЫЙ СТОЛБЕЦ) ¬A & B СКОЛЬКО РАЗ ЗНАЧЕНИЕ «ИСТИНА» ВСТРЕЧАЕТСЯ...
manovskidominik
09.12.2020 16:33
Перечислите этапы создания 3D-панорамы....
Популярные вопросы
Трикутник описаного навколо кола, точки N, K - P точки дотику....
2
Сравнить исследование и проетирование...
2
Salom, Robiya Yozgi ta tilni qanday õtkazding?Men pandemiya tufayli...
2
Яка подія трапилась на терегах Украіни в Раннє Середньовіччя надо...
2
Колебаний математического маятника и электромагнитов в цепи можете...
2
Локальные сети позволяют... Выбери верный ответ. 1 совместно использовать...
2
До розчину магній сульфату масою 300 г з масовою часткою речовин...
2
2.12. Точки А (3; 2; 0), B(6; 2; 0), D(3; 5; 0), А1, (3; 2; -1)...
2
Скласти діалог на тему: Дев ятикласниці домовляються вихідного...
2
Қырық уәзірі жабылып бір Жаманға татымайтындығы неліктен? Мысалмен...
1
begin
readln(a);
if a>0 then a:=a*2;
if a<0 then a:=a*3;
if a=0 then a:=a+1;
writeln(a)
end.