Чем можно заменить var(k,n,h): =readinteger3; в этой программе const c='123456789abcdefghijklmnopqrstuvwxyz'; begin var(k,n,h): =readinteger3; for var row: =1 to k do for var height: =1 to h do begin var s: string: =c[height]height+' ' (h-height); writeln(s*n); end; end. версия паскаля 3.3 сборка 1547

119

225

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

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

лунный3

Информатика

4,8(18 оценок)

Const c='123456789abcdefghijklmnopqrstuvwxyz'; var k,n,h: integer; beginread(k,n,h);

avokebest

Информатика

4,7(12 оценок)

1) var a,b,s: integer; begin readln(a,b); s: =0; if (a< 0)and(b< 0) then begin a: =-a; b: =-b; end; if a< 0 then for var i: =1 to b do s+=a else for var i: =1 to a do s+=b; writeln(s); end. пример: -7 15 -105 2) var n,s: integer; begin readln(n); s: =0; for var i: =1 to n do s+=i; writeln(s); end. пример: 100 5050 3) var a,b,s: integer; begin readln(a,b); s: =0; for var i: =a to b do s: =s+i*i; writeln(s); end. пример: 2 5 54 4) var a,b,n: integer; begin readln(a,b,n); for var i: =1 to n do write(random(b-a+1)+a,' '); end. пример: 10 20 5 11 12 14 14 18