М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Mazadinec
Mazadinec
15.03.2021 08:19 •  Информатика

Написать программу на паскале абс цикл с постусловием дано целое число n (> 1). вывести наименьшее из целых чисел k, для которых сумма 1 + 2 + … + k будет больше или равна n, и саму эту сумму.

👇
Ответ:
stockmen
stockmen
15.03.2021
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.  
4,6(3 оценок)
Открыть все ответы
Ответ:
лолл18
лолл18
15.03.2021
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.

Пример:
Исходный массив:
   8  12  16  16  19  15  11  11  13   7
   7   3  20   3  13   2  20  18   9   2
  18  11  17   0   4   0  18   3  17  12
  12   9  18   9  18   4   7  15   4  20
  17  12  13  20  12  20   4  10  16  18
  15  19   2   1  18  20  13   1  19   3
  12   7   8  13   3   3  15  13   2  15
  15   0  20   9  20  14   3  19   6  20
  12   4  19   0  19   2  18   4  12  10
   3   7   5  15  15   3  19   9  10   8
Полученный массив:
 128  97 100 116 142 111  91 126 100  94
4,4(44 оценок)
Ответ:
Kronk123
Kronk123
15.03.2021
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.
4,5(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ