Ответы на вопрос:
Program n1; var a: integer; begin readln(a); if a mod 4=0 then a: =a*2 else a: =a-3; write(a); end.
Популярно: Информатика
-
Примеры ситуаций, в которых информация: а) обрабатывается; б) передается;...
Nihilagay27.05.2021 01:32 -
Считая что каждый символ кодируется одним байтом оцените информационный...
vaider22216.11.2022 07:46 -
Карточка 3. выразите: 1) 5120мбайта в кбайтах и гбайтах; 2) 4кбайта в байтах...
sof07080809.02.2022 02:09 -
Народ, дайте решение этой параши в кумире пока я окончательно не потерял...
Shkolnik128717.10.2022 01:19 -
Дима удалил на своём компьютере антивирусную программу. после этого, как...
Aleksandr12312301.01.2021 11:18 -
Напишите программу в паскале по : первая бригада может выполнить за а дней...
antoshkaromanov17.02.2023 21:43 -
Запрограммируйте рисование этих фигур в графическом исполнителе стрелочка...
Masya141509.02.2022 09:39 -
Задано натуральное число. является ли оно трёхзначным. является ли оно...
zxvgg10.02.2020 02:12 -
Мне нужно перевести число 0,5625 из 10 системы счисления в троичную. я...
Виталина45678907614.05.2020 18:33 -
Составьте пограмму вычисления суммы 100 первых членов арифметической прогрессии,если...
dasha1232804.01.2020 06:51