tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить симметричность введенного
Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal
MashaVonlaar
2 09.09.2019 15:40
0
Ответы
СоняКот2000
07.10.2020 03:28
Program Test;
var
a: array [0..3] of integer;
c: integer;
begin
for c := 0 to 3 do
begin
read(a[c]);
end;
if a[0] = a[3] then
begin
if a[1] = a[2] then write('1') else write(random(100))
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alla50011
28.07.2019 07:30
Как создать подписи под всеми изображениями фотоальбома...
jddgvdysf
28.07.2019 07:30
1.при работе с электронной таблицей в ячейку с4 записана формула: =$b3+d$2+1. какой вид приобретет формула, после того как ячейку с4 скопируют в ячейку d2? 2.при работе с электронной...
илья1899
28.07.2019 07:40
с информатикой подсчитать количество элементов, равных максимальному....
diana17171
28.07.2019 07:40
Вчём заключается ошибка в употреблении личных местоимений.1)загляните в кабинет начальника цеха.как он сверкает!...
hdjeugwcwtixuvbekz
28.07.2019 07:40
1. что такое текстовый редактор 2. стили 3. панель инструментов текстового редактора 4. шрифт размер 5. формат границы между строчным интервалом 6. мультимедиа 7. что входит...
R1ceWithM3at
28.07.2019 07:40
Задать целочисленный массив из десяти элементов (ввод с клавиатуры). вывести на экран полученный массив. найти сумму элементом массива и вывести на экран...
Verra990
28.07.2019 07:50
Написать программу по информатике, надо из 3 целых чисел найти наименьшее, 8 класс...
dimapoddubny20p08hrm
28.07.2019 07:50
На береге три купца и три пирата, которым надо перебраться на другой берег. как перебраться, если пиратов на каком - либо береге не должно быть больше купцов и лодка вмещает...
Aidan23
16.08.2019 17:30
Твір-опис на тему,,місто майбутнього...
Dania2432
16.08.2019 17:30
Доклад по биологии 7 класс на тему: строение паутины и её значение (роль)...
Популярные вопросы
Определите координаты точек пересечения графиков функций у=5х-20 и у=10х-70...
1
Очём говорится в стихотворении ? когда волнуется желтеющая нива, и свежий...
3
Решите в столбик в столбец...
1
Напишите словосочетание со словами указаными ниже, не изменяя слова : 1) каучук...
1
Как связаны температура воздуха и атмосферное давление...
1
Как пишется окончание в слове ? (е или и)...
1
Слово о погибели земли - это художественная ? ...
1
Какова формула реактива для распознавания фенолов?...
1
98 решить на паскале 1) дан двумерный массив целых чисел: а) сумму нечетных...
3
Смысл стихотворения заболоцкого одинокий дуб. ответьте одним предложением...
1
var
a: array [0..3] of integer;
c: integer;
begin
for c := 0 to 3 do
begin
read(a[c]);
end;
if a[0] = a[3] then
begin
if a[1] = a[2] then write('1') else write(random(100))
end;
end.