Составьте программу, находящую сумму делителей числа Х. Число Х введите с клавиатуры. (Pascal ABC (не net)) (20 баллов)

Знания

Информатика

1 ответ:

Бедов Александр Н...2 года назад

0 0

Program A;var X,sum,i: integer;beginsum := 0 ;Readln(X);for i:= 1 to X doif (x mod i = 0) then sum := sum + i;Writeln(sum);end.

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

Помогите пожалуйста! Составить программу какая вводит с клавиатуры элементы массива от 1 до 10 и высчитывает количество элементо

нюта99 [4]

var
n,i: integer;
a: array [1..10] of integer;
begin
n:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i] mod 2=0 then n:=n+1;
end;
writeln ('четных значений -',n);

end.

0 0

4 года назад

Самый первый инструмент храниния информацией ?

muhammed123

Память - это и есть самый первый инструмент хранения информации

0 0

4 года назад

Укажите значения величины S после выполнения следующей команды. S = 1; S = S + 6

Алла Леб

ответ: 7 seven семь

0 0

4 года назад

Дан текстовый файл. Необходимо переписать его содержимое в другой текстовый файл, добавляя в начало каждой строки её порядковый

Дмитрий1125 [57]

Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>

0 0

4 года назад

Найти минимальный элемент матрицы L(15,15) программа паскаль

МарияСтулова

Program asd;
Const
N=15;
M=15;
Var
l:array [1..15,1..15] of integer;
min,i,j,k,k1:integer;
Begin
min:=l[1,1];
Writeln('Введите элементы матрицы:');
For i:=1 to n do
For j:=1 to m do
Begin
Write('L[',i,',',j,']=');
Readln(l[i,j]);
If l[i,j]<min then begin min:=l[i,j]; k:=i; k1:=j; end;
End;
Writeln('Минимальный элемент L[',k,',',k1,']= ',min);
End.

0 0

3 года назад