20 по информатике в программе паскаль 9 класс с клавиатуры водятся 4 числа выяснить, если среди них числ0 равное 0

232

482

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

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

Teddy62711

Информатика

4,5(61 оценок)

var a,b,c,d: integer;

begin

writeln('введите 4 числа');

readln(a,b,c,d);

if (a=0)or(b=0)or(c=0)or(d=0)

then writeln('среди введенных чисел есть 0')

else writeln('0 нет');

end.

пример:

введите 4 числа

5 0 3 7

среди введенных чисел есть 0

Kotliarrostislav

Информатика

4,6(77 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',10); a.println; var x1: =a.where(x-> x> 0).min; var i1: =a.findindex(x-> x=x1); var x2: =a.where(x-> x< 0).max; var i2: =a.findindex(x-> x=x2); swap(a[i1],a[i2]); a.println end. пример n= 16 -9 -8 1 -9 2 5 -6 7 5 -9 0 2 -6 -7 3 6 -9 -8 -6 -9 2 5 1 7 5 -9 0 2 -6 -7 3 6