Найти и исправить ошибки в записи оператора ветвления if x> =y then begin x: =0; y: =0; else end; write(z)

141

257

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

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

Danilakibilda

Информатика

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

Если х> =у, то пишет х=0 и у=0 если не так, то конец; пишем z. правильно: if x> =y; then; begin x=0, y=0; else write z; end.

Ruslan2284612

Информатика

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

Var min,max,i,s,n: integer; begin randomize; write('введите диапазон: '); readln(min,max); if(min> max) then begin max: =max+min; min: =max-min; max: =max-min; end; write('введите количество чисел: '); readln(n); for i: =1 to n do begin n: = min + random(max-min); write(i,'-е число: ', n); if((n> 6) and (not odd( then begin s: =s+n; writeln(' (четное и > 6, сумма равна: ', s,')') end else begin write(' (не четное'); if(n> 6) then writeln(', но > 6)') else writeln(' и < 6)'); end; end; write('сумма четных чисел > 6 равна: ',s); end.