3 года назад

Найдите сумму натуральных чисел от 1 до m. Используя цикл с предусловием

1 ответ:

fox26033 года назад

0 0

Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.

Читайте также

Упростить выражение а+а(вектор) p.s. над двумя буквами а расположена длинная черта как общий вектор

shults55584 [44]

А вектор + а
Отрицание на отрицание дает положительный ответ

0 0

4 года назад

Помогите пожалуйста по информатике!!! Переведите координаты точек в 10-ю СС и постройте рисунок в координатной плоскости. ПОМОГИ

Ксюксю

1 35 35 98 65 310 69 13 11 35 95 108 108 95 9

Получится примерно это.

0 0

4 года назад

Записать на языке Паскаль программу решения задачи, рассмотренной в примере пункта 2.2.4 учебника по информатике за 9 класс авто

Наталирай [7]

const

n = 30;

var

a: array [1..n] of integer;

s, i: integer;

begin

for i := 1 to n do

begin

a[i] := random(151) + 50;

writeln('Дом ', i, ' = ', a[i]);

end;

for i := 1 to n do

s := s + a[i];

writeln('Всего ', s);

end.

0 0

4 года назад

Помогите, массив, пожалуйста

natashazheka [111]

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
 var found:=(n mod 2=0);
 var p:=3;
 while (not found) and (sqr(p)<=n) do
 begin found:=(n mod p=0); p+=2 end;
 Result:=not found
 end
end;

begin
var a:=ArrRandom(ReadInteger('n='),0,100); a.Println;
var primes:=a.Where(x->IsPrime(x)).ToArray;
primes.Sort;
primes.Println
end.

Пример
n= 17
33 23 56 58 32 2 5 72 68 59 89 30 17 40 44 21 23
2 5 17 23 23 59 89

0 0

4 года назад

Вопрос связан с PSN Я ввела пароль и почту. И мне выдало сообщение, что не удалось войти в сеть. Обратитесь за помощью к организ

Tadanwe

Попробуй сделать с двух аппаратов чтоб оба аккаунта были в сети! Но я не уверен поэтому думаю, что можно наверное как то новую почту сделать.... ну что то в этом роде ...

0 0

4 года назад

Прочитать ещё 2 ответа