tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Перепишите с pascal на
Перепишите с pascal на
write('Введите a1,a2,a3,a4: ');
var a1,a2,a3,a4,n:integer;
readln(a1,a2,a3,a4);
if a1=a4 then
begin
if a1=a2 then n:=3 else n:=2;
end
else if a1=a2 then n:=4 else n:=1;
writeln('Номер числа: ',n);
end.
polinayac
1 22.12.2020 21:57
0
Ответы
Показать ответы (3)
Другие вопросы по теме Информатика
Камалия11
08.05.2020 10:56
Ученик работал с каталогом Билеты. Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом еще разспустился на один уровень вниз. В результате...
2katena
18.06.2019 23:40
Какое количество информации содержится в слове информатика, если каждый символ кодировать 1 байтом? объем информации сообщения 12288 бит(учитывая,что 1 байт=8 бит) можно выразить...
TigerTanya
18.06.2019 23:40
Укажите основную характеристику каналов связи....
ttadikina
05.12.2020 01:19
Подскажите как заменить в си число 10 на символ А при выводе...
daniilnv2
05.12.2020 01:05
С++ задание: Масив містить довільні числа. Обчислити суму значень елементів масиву за правилом: a[1] - a[2] + a[3] - a[4]+ … Код сейчас:#include #include #include using namespace...
dvortrans
08.12.2020 21:09
Дай название в двух словах Что объединяет предметы на картинке информатика...
alica123434
08.10.2021 13:13
Найдите в таблице слова и термины по теме : негативные аспекты использования компьютера...
Ксенечка4
08.10.2021 13:11
Можно ли сделать полный сброс данных на виндовс 7 пиратка и если можно обосновать свой ответпросто я в этом ничего не понимаю...
nickitasychev
02.06.2019 23:10
Что получится в результате? c²+c²=?...
qqqqq9
02.06.2019 23:10
Сделать морфологический разбор(часть речи) к слову: целый. ....
Популярные вопросы
Провiдмiняти числiвники тисячя,вiсiмсот девяносто дев ять...
3
вычислить массу и объём о2(снизу степень),необходимого для сжигания 20 граммов...
1
Вычисли значение каждого из следующих произведений поразрядного умножения....
1
Найдите катет прямоугольного треугольника ,если его ни потенуза равна 13...
3
Написать эссе по теме нужна ли идеология современной россии не более 80-100слов...
3
Нужно найти лишнее слово! 1) деревня,лошадь,девочка,лиса.2)я,мы,друг,он....
1
9. впиши пропущенные прилагательные в нужной степени сравнения. • difficult...
1
Проект на тему красная книга россии. нужно! по плану 1 введение 2 цель проекта...
3
Объясни правописание слов с пропущенными буквами. подчеркни местоимения 2-го...
2
Сколько сантиметров приблизительно составляет 1дм 8 мм?...
3