Сгенерировать число из промежутка от 150 до 200 и выделить его первую и последнею цифру

113

317

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

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

ideliya2006

Информатика

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

Вообще формула диапазона [a,b] x: =random(b-a+1)+a; program qq; var a, b, c: integer; begina: =random(51)+150; b: =a div 100; c: =a mod 100; write ('pervaya cifra ', b,', tretya cifra ', c,'.'); end.

aliyaulanova1

Информатика

4,4(100 оценок)

180 1я-1 последняя-0 это аснтвтюамлоаион

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.