Напишите, , рабочую программу на турбо паскале. условие : дано число n. напечатать фразу : "мы успешно сдали экзамен ",согласовав окончания слова "экзамен" с числом n. предусмотреть, что 1(больше или меньше) n(больше или меньше) 20
Program naconecto;varn:integer;BEGINreadln(n);if (n>1) and (n<20) then begin writeln('MbI ycneIIIHo cgaJlu ek3aMeH!'); endelse begin writeln('He, HecgaJlu'); end;readln;END.
(Pascal) 1. var i, s, n: integer; begin readln(n); s := 0; i := 0; while i < n do begin i := i + 1; s := s + i; end; writeln('Цикл с предусловием: ', s); s := 0; i := 1; repeat s := s + i; i := i + 1; until i > n; writeln('Цикл с постусловием: ', s); s := 0; for i := 1 to n do s := s + i; writeln('Цикл с переменной: ', s); end.
2. var i, n: integer; begin readln(n); for i := 1 to n do write(2 * i, ' ') end. 3. var i, a, b: integer; begin readln(a, b); for i := a to b do writeln(i, ' * ', i, ' = ', i * i) end.
// PascalABC.Net 3.0, сборка 1052 type Matrix=array[,] of integer;
function SumRow(a:Matrix; i:integer):integer; var j,s:integer; begin s:=0; for j:=0 to Length(a,1)-1 do s:=s+a[i,j]; SumRow:=s end;
var i,j,m,n:integer; A:Matrix; begin Write('Введите количество строк и столбцов массива: '); Read(m,n); SetLength(A,m,n); Writeln('Исходный массив'); Randomize; for i:=0 to m-1 do begin for j:=0 to n-1 do begin A[i,j]:=Random(51)-25; // интервал [-25;25] Write(A[i,j]:4) end; Writeln end; Write('Построчные суммы: '); for i:=0 to m-1 do Write(SumRow(A,i),' '); Writeln end.
