Другие языки программирования и технологии

Информатика 7 класс

Напишите программы (паскаль ABC) для решения задач:
1.Заполнить массив из 10 элементов след. числами: 1,-2,3,-4,5,...-10.
2.Массив из 10 элементов заполнен случайными числами от 0 до 99. Найти кол-во элементов массива кратных 5 и больших 50.
3.Дано целое число n( >1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 2 + .+ K будет больше или равна n, и саму эту сумму.
Входные данные: ввести целое число n (1<n<=1000000).
Выходные данные: вывести наименьшее из целых чисел K, для которых сумма 1 + 2 + .+ K будет больше или равна n, и саму эту сумму.
Дмитрий Ратушный
Дмитрий Ратушный
198
1)
program x1;
var
 i: integer;
 a: array [1..10] of integer;
begin
 for i := 1 to 10 do
 begin
  if i mod 2 = 0 then
   a[i] := -i
  else
   a[i] := i;
  Write(a[i], ' ');
 end;
 ReadLn;
end.
2)
program x2;
var
 i: integer;
 n: integer;
 a: array [1..10] of integer;
begin
 Randomize;
 n := 0;
 for i := 1 to 10 do
 begin
  a[i] := Random(100);
  if (a[i] mod 5 = 0)and(a[i] > 50) then
   Inc(n);
  Write(a[i], ' ');
 end;
 WriteLn;
 WriteLn(n);
 ReadLn;
end.
3)
program x3;
var
 s: integer;
 n: integer;
 k: integer;
begin
 repeat
  Write('n = ');
  ReadLn(n);
  if (n <= 1) then
   WriteLn('Неверное значение n');
 until (n > 1);
 k := 1;
 s := 0;
 repeat
  s := s + k;
  inc(k);
 until s >= n;
 dec(k);
 WriteLn('Число = ', k);
 WriteLn('Сумма = ', s);
 ReadLn;
end.
4)
program x4;
var
 s: integer;
 n: integer;
 k: integer;
begin
 repeat
  Write('n = ');
  ReadLn(n);
  if (n <= 1)or(n > 1000000) then
   WriteLn('Неверное значение n');
 until (n > 1)and(n <= 1000000);
 k := 1;
 s := 0;
 repeat
  s := s + k;
  inc(k);
 until s >= n;
 dec(k);
 WriteLn('Число = ', k);
 WriteLn('Сумма = ', s);
 ReadLn;
end.
Аркадий Борзунов
Аркадий Борзунов
91 212
Лучший ответ

Похожие вопросы