Задать вопрос
27 октября, 22:21

Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal

+1
Ответы (1)
  1. 27 октября, 23:05
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы