tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число а. если
Дано целое число а. если значение а = 0, то необходимо увеличить его на 3, иначе присвоить а значение, равное 0. составьте на паскале программу для решения этой . программа должна иметь дружественный интерфейс
ABBADON369
3 09.09.2019 19:40
4
Ответы
oliver9999
07.10.2020 03:52
Program p17;
var A:integer;
begin
readln (A);
if A=0 then A:=A+3
else if A<>0 then A:=0;
writeln (A);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
shildebaev01
18.07.2019 22:30
Напишите программу которая вводит натуральные числа a и b и выводит все простые числа в диапазоне от a до b...
Александра110799
18.07.2019 22:30
1) совершенным называется число, равное сумме всех своих делителей, меньших его самого (например, число 6 = 1 + 2 + 3). напишите программу, которая вводит натуральное...
Rj7
12.05.2020 15:58
по инфе (сорри за фото я не смог его перевернуть)...
MrQelen
12.05.2020 15:58
Какое понятие не является синонимом систематизации информации?...
Anniikko
12.05.2020 15:58
Опишите главные достоинства компьютерной технологии обработки создания текстовых документов, по сравнению с бумажной...
ира09н9
12.05.2020 15:58
решить ИКТ 3,4,5 ОЧЕНЬ НАДО. Хотя-бы 3,4 решите Пример как делать на втором фото...
Ромашка242526
12.05.2020 15:58
с информатикой у меня голова не соображает (...
naked159
12.05.2020 15:58
Запешите название командного блока, в котором находиться команда....
yuliaovcharova
19.06.2019 16:30
Напишите программу, которая сначала считывает целое положительное число, а затем печатает значение меньшей из его первой и последней цифр. исходное число не превышает...
lol1025
19.06.2019 16:30
Дана таблица значений среднемесячных температур в течение года составит программу на pascal в которой вычесляютсь четыре велечины: среднее температуры зимних месяцев...
Популярные вопросы
Wyznacz zbiory A U В, АВ, А-В, В -А, gdy: А={-9, -7, -6, 0, 2,...
2
Всесвітня історія с табличкой....
3
Якщо взяти з дна акваріума краплю мулу і роздивитися її під мікроскопом,...
2
Знайдіть сторону АВ трикутника АВС,якщо АС= 5,ВС=4√2, С=45°...
3
Think of a popular shop in your town/city. Make notes under the...
1
Тіло масою 8,3 кілограм рухається так , що його координата змінюється...
3
Составьте предложение со словами отец, пассажир, капуста, ботинки,...
1
Hа малюнку 2 зображено графіk залежноеті няху від часу рівномірного...
3
( ) посмотреть видео и по нему дать ответы Срок до 19:00[Название...
1
где здесь должны стоять запятые и почему? это светлый нежный оттенок...
1
var A:integer;
begin
readln (A);
if A=0 then A:=A+3
else if A<>0 then A:=0;
writeln (A);
end.