tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число.если
Дано целое число.если оно является кратным 3,то прибавить к нему 1,в проломанном случае не изменять его. вывести полученное число. блок схема
ltandreeva2016
1 24.12.2019 11:51
1
Ответы
saha1710
24.12.2019 14:03
ответ: var a: integer;
begin
readln (a);
if (a> 0) then
begin
a: =a+1;
writeln (a);
end
else
writeln (a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
winnikrolikov
15.12.2020 14:13
В таблице применено несколько правил условного форматирования определи какое условие было применено в столбце...
tanya732
15.12.2020 14:12
Что такое материальные модели? ...
Adik2281
15.12.2020 14:12
Рассмотрите таблицу и Аскару записать числовые значения в ячейках: 15 2 -A143 -ПРОИЗВЕД(В1,42)-82-С1 -МИН(А1:01) 3 -CP3HAҶAIDI)-CYMM(A2D2) --MAKC(CL:C2)-СТЕПЕНЫС1:D1)...
Tittans101
26.06.2019 01:50
Найти произведение всех элементов массива из 5 элементов,заполненного с клавиатуры....
dias1101
26.06.2019 01:50
Выполнить реверс массива из 10 элементов,заполненного случайными числами в интервале [-100; 100]....
ludafrolova98
13.05.2021 08:51
Встановить 8. Створіть обробник події Click для кнопки, виконання якогочервоний колір фону поля, відступ поля від верхньої межі вікна 150 пікселів,зменшить відступ...
anyasannikova1
13.05.2021 08:55
Сілтемелердін кандай түрлері бар...
gimazova99
13.05.2021 08:56
2. рассмотрите и дополните программный код. for i in range (6,25) if i % 3 ==0 очень ❤...
Лис489
13.05.2021 08:57
Составьте программу рисования заданных объектов...
Yulia542
13.05.2021 08:59
с информатикой 2 задание срлчнл...
Популярные вопросы
Круг ипподрома имеет длину800м.двигаясьрысью,лошадь развивает скорость...
3
3литра жидкости имеют массу 6 кг определите плотность этой жидкости...
2
Посадили 9 кустов жасмина, кустов сирени в 6 раз больше, чем жасмина,а...
2
Из чисел истинной пропорции 5целых 1/3 : 4 =2 : 1,5 .образуйте...
1
Каждый из сторон второго треугольника в полтора раза длиннее соответственно...
1
Информатика 3 класс автор горячев стр 40...
3
Вычисли записывая решение столбиком 28км640м-9км890м= 18т360кг+16т740кг=...
3
Ра второстепенными членами текут реки . пекут печи . летит баба-яга...
2
1.что такое пиксель? что такое растр? 2.как работает элт-монитор?...
1
Силу . 1. изгиб 2. кручение 3. сжатие 4. растяжение...
3
ответ: var a: integer;
begin
readln (a);
if (a> 0) then
begin
a: =a+1;
writeln (a);
end
else
writeln (a);
end.