rafael2003ggwp
08.04.2023 05:21

Очень Главное, чтобы программа работала
Написать программы Кумире. Пример:
Алгоритм Сложные ветвления
Нач
Цел N
Вывод "Введите любое число"
Ввод N
Если N>99 и N<1000 то
Вывод "Введёное число трёхзначное"
Иначе
Вывод "Введёное число не трёхзначное", нс
Вывод " Повторите ввод числа"
Все
Кон
1) надо написать программу, которая определяет что число было введено трёхзначное и четное с использования mod или div
2) составить программу, которая определяет были ли в трёхзначном числе введено 3 одинаковые цифры

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
арина256545
09.05.2022 06:06

а) електронні послуги.

Можливості здійснення електронного урядування - пошук необхідних електронних послуг,можливість пошуку за категоріями.

б) відкритість даних.

Можливості здійснення електронного урядування - Пошукові набори даних ; просмотр,так званого "Хіду виконання" державних розпоряджень.

в) залучення громадян до управління.

Можливості здійснення електронного урядування - пошук необхідної інформації за такими групами:

"Актуально ";

"Консультації з громадськістю ";

"Анонси ";

"Сприяння розвитку громадянського суспільства ";

"Громадські ради ";

"Нормативно-правова база ";

"Партнерство «Відкритий Уряд»" ;

"Рада голів громадських рад при органах виконавчої влади ";

"Громадська експертиза органів виконавчої влади ";

"Публічні звіти органів виконавчої влади ";

"Рекомендації та іноземний досвід".

г) електронний документообіг.

Можливості здійснення електронного урядування - Пошук необхідних нормативно-правових актів.

0,0(0 оценок)
Ответ:
annmslna2044
21.11.2022 23:03

1)

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

2)

var x:longint;

begin

readln(x);

if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);

end.

3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.

var a:array[1..50] of integer;

var i:integer;

begin

for i:=1 to 50 do a[i]:=i;

for i:=1 to 50 do writeln(a[i]);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота