Выберите фрагмент программы , в котором переменной у присваивается значение, равное 0,если -5-5 then y=0 else y=1 б) if x< 5 and x> -5 then y=0 else y=1 в) if x< 5 then if x> -5 then y=1 else y=0 г) if x< 5 and x> -5 then y=1 else y=0
Program zic; var a,b,c,d,e:integer; begin Writeln('Введите 5 чисел'); Readln(a,b,c,d,e); if (a>0) and (b>0) and (c>0) and (d>0) and (e>0) then Write('',Ваши числа положительные) else if a>0 and b>0 and c>0 and d>0 and e<0 then Write('',Все ваши числа положительные кроме числа e) else if a>0 and b>0 and c>0 and d<0 and e>0 then Write('',Все ваши числа положительные кроме числа d) else if a>0 and b>0 and c<0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа c) else if a>0 and b<0 and c>0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа b) else if a<0 and b>0 and c>0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа a) else if a>0 and b>0 and c>0 and d<0 and e<0 then Write('',Все ваши числа положительные кроме числа d и e) else if a>0 and b>0 and c<0 and d>0 and e<0 then Write('',Все ваши числа положительные кроме числа c и e) else Дальше просто меняеш знаки и числа. Концовка такая if a<0 and b<0 and c<0 and d<0 and e<0 then Write('',Все ваши числа отрицатильные); end. P.s. Все эти с<0 и т.д. поставь в скобки
var chislo: longint; {число, введенное с клавиатуры} tchifra, Summa, n, p: integer;{tchifra - правая цифра}
begin Write('введи число: '); Readln(chislo); Summa := 0;n := 0;p := 1; repeat tchifra := chislo mod 10; {получили правую цифру} Inc(n); if tchifra > 0 then p := p * tchifra; if tchifra < 3 then Summa := Summa + tchifra; chislo := chislo div 10{оставили от числа левую часть} until chislo = 0; {выход из цикла, если нет больше цифр} Writeln('Количество цифр в числе- ', n); Writeln('Сумма цифр, меньших 3- ', Summa); Writeln('Произведение цифр, больших нуля- ', p); Readln end.
Тестовое решение: введи число: 10354 Количество цифр в числе- 5 Сумма цифр, меньших 3- 1 Произведение цифр, больших нуля- 60
Фрагмент б.