Сложные условия ветвления ! напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке. пример: введите три числа: 5 5 5 все числа одинаковые. пример: введите три числа: 5 7 5 два числа одинаковые. пример: введите три числа: 5 7 8 нет одинаковых чисел.

297

386

Посмотреть ответы 2

Ответы на вопрос:

polinkaa777

Информатика

4,8(81 оценок)

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin case readseqinteger('введите три целых числа: ',3).distinct.count of 3: writeln('нет одинаковых чисел'); 2: writeln('два числа одинаковые'); else writeln('все числа одинаковые') end end. примеры введите три целых числа: 5 5 5 все числа одинаковые введите три целых числа: 5 7 5 два числа одинаковые введите три целых числа: 5 7 8 нет одинаковых чисел

софи253

Информатика

4,8(73 оценок)

Dim a(6) randomize timer for i = 1 to 6 a(i) = int(rnd * 20) - 10 if a(i) > 0 then s = s + 1 print a(i); " "; next i print print "s="; sновый паскаль авсvar a: array[1..6]of integer; i,s: integer; begin for i: =1 to 6 do begin a[i]: =random(-10,10); if a[i]> 0 then s: =s+1; write(a[i],' ') end; writeln; writeln('количество положительных: ',s)end.старый паскаль авс var a: array[1..6]of integer; i,s: integer; begin for i: =1 to 6 do begin a[i]: =random(20)-10; if a[i]> 0 then s: =s+1; write(a[i],' ') end; writeln; writeln('количество положительных: ',s) end.