tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать систему. от введённого
Написать систему. от введённого с клавиатуры нечётного числа найти 18% ,чётное число увеличить на 19%
Nakonechna21
3 07.08.2019 13:20
0
Ответы
Disna2006
20.08.2020 01:15
Program s;
var
a:integer;
begin
readln(a);
if a mod 2 = 0 then write(a*1.19) else write(a*0.18);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ubfhbc
18.03.2019 16:21
Внести в программу изменения так,чтобы числа выводились в обратном порядке—от большего к 2 var k,a: integer; begin write( количество k= ); read(k); for var n: =1 to k do begin...
o123456789
25.05.2019 18:30
1.информационное сообщение объемом 1,5 кбайта содержит 3072 .сколько символов содержит алфавит,при которого записано это сообщение зад 2. книга,набранная с компьютера,содержит...
dimagurkun2016
25.05.2019 18:30
Вчисловой последовательности из n произвольных целых чисел определить количество пар соседних элементов одинаковых по модулю, но разных по знаку....
tolstykh2005ow2t1s
05.05.2020 17:50
100б решить можно файлом вордовским...
DemonDogs
26.05.2019 14:20
:3 переведите число 721(8) по схеме n(8)- n(2)- n(16)...
nurgisaabish12345
26.05.2019 14:20
Выполните сложение 431(8)+d07(16)=? (2)...
StasuxaStasyan
26.05.2019 14:20
Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше. (ответ первая цифра , вторая цифра или равны )....
миса33
25.10.2020 16:42
Электромеханическая часть компьютера...
vika160805v
25.10.2020 16:42
То что карандашом в круглешке надо сделайте ...
IceOneBro
25.10.2020 16:42
Установите соответствия по радиусу действия сети:...
Популярные вопросы
1яку кількість речовини заліза можно відновити з оксиду феруму3 тим обємом...
1
ответить на вопрос! если бы вам пришлось выбирать между полной занятостью...
3
5*9^x + 9^x-2=406 2^x-2=3^x-2 5^x+1=8^x+1 3^x+3^3-x=12...
1
Тема и идея произведения человек на часах...
3
По биологии на лето задали наблюдение за сообществом. например, берешь лес...
1
Правильну відмінкові форму числівника шістсот дев’яносто вісім наведено у...
3
Основи рівнобічної трапеції дорівнюють 12 і 20 см, а діагональ є бісектрисою...
3
Розв яжіть систему рівнянь у+2х=6 х² +ху=8...
2
Yesterday the weather was fine. from morning my parents and i went by train...
3
Врезультате колебания цен на рынке цена пакета акций газодобывающей компании...
3
var
a:integer;
begin
readln(a);
if a mod 2 = 0 then write(a*1.19) else write(a*0.18);
end.