Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: array [1..100] of real; i,n: integer;
t: real; begin randomize; n: =20; for i: = 1 to n do begin a[i]: =random(n*10)- 10*n div 2 ; write(a[i]: 4); if i mod 10=0 then writeln; end;
t: =a[1]
for i: = 1 to n do begin a[i]: =a[i]/t ; write(a[i]: 4); if i mod 10=0 then writeln; end; end.
программа на паскале:
program xxx; var a, b: real; begin writeln('введите количество миль'); readln(a); b: = a*1.6; writeln('кол-во киллометров - ',b)end.
var a: integer;
begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.
Популярные вопросы