Написать программу на паскале абс цикл с постусловием дано целое число n (> 1). вывести наименьшее из целых чисел k, для которых сумма 1 + 2 + … + k будет больше или равна n, и саму эту сумму.
Var n,k,summ:integer; begin write('Введи число N: '); readln(n); repeat begin k:=k+1; summ:=summ+k; end; until summ>=n; writeln('K=',k,', 1+..+',k,'=',summ,', ',summ,'>=',N); end.
Const n=10; var a:array[1..n,1..n] of integer; b:array[1..n] of integer; i,j,s:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(21); write(a[i,j]:4); end; writeln; end; for i:=1 to n do begin s:=0; for j:=1 to n do s:=s+a[i,j]; b[i]:=s; end; writeln('Полученный массив:'); for i:=1 to n do write(b[i]:4); writeln; end.
1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
begin
write('Введи число N: ');
readln(n);
repeat begin
k:=k+1;
summ:=summ+k;
end;
until summ>=n;
writeln('K=',k,', 1+..+',k,'=',summ,', ',summ,'>=',N);
end.