Составьте программу, находящую сумму делителей числа Х. Число Х введите с клавиатуры. (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.

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

Помогите написать программу в Pascal.Нужно написать программу для нахождения значения выражения:

АленаЕгорова [659]

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

begin
var (a,c,x):=ReadReal3('Введите a,c,x:');
var y:=(2*a-a/23)/Sqrt(1+a/4);
var z:=(2*c-4*y+Abs(a-y))/(Exp(x)+2*a*y*a);
Writeln('Y=',y,', Z=',z)
end.

Пример
Введите a,c,x: 3.5 -0.167 3.11
Y=5.00094509026456, Z=-0.129959221453275

0 0

4 года назад

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

В) 467,5 в 8 - в двоичную, десятичную системы счисления; г) С28 в 16 - в двоичную, восьмеричную, десятичную системы счисления. 3

Анастасия92 [7]

В) 100110111 - двоичная ; 311 - десятичная
Г) 110000101000 - двоичная ; 3112 - десятичная ; 6050 - восьмиричная
3) DCXXXVII

0 0

4 года назад

Введите с клавиатуры числа, количество каторых не превышает 1000 и максимальное число должно оканчиваться на 3 С масивом и без

tolusss [14]

993?-----------------

0 0