Program fofgogjoj; var a,b,c,d,s,i:integer; begin s:=0; Writeln('Введите первое число'); Readln(a); Writeln('Введите второе число'); Readln(b); Writeln('Введите третье число'); Readln(c); Writeln('Введите четвертое число'); Readln(d); if a>5 then s:=s+a; if b>5 then s:=s+b; if c>5 then s:=s+c; if d>5 then s:=s+d; Writeln('Сумма чисел больших 5 равна:', s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
