profile
Опубликовано 4 года назад по предмету Информатика от groshevaov

Напишите программу в Паскале, которая получает три числа и выводит количество натуральных одинаковых чисел в этой цепочке.

пример: введите три чила:

5 5 5

все числа одинаковые.

спасибо

  1. Ответ
    Ответ дан Аккаунт удален
    Если в три переменные:
    var a,b,c:integer;
    begin
    writeln ('Введите 3 числа');
    read (a,b,c);
    if (a=b)or (a=c) or (b=c) then
    begin
    if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
    writeln ('Все числа одинаковые');
    if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
    end
    else writeln ('Нет одинаковых чисел');
    end.


Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.