3 года назад

Помогите решить вопрос по программированию Pascal Вывести на экран сумму первых 20 чисел введенных с клавиатуры

1 ответ:

0 0

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

begin
Writeln(ReadSeqInteger(20).Sum);
end.

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

Даны коэффициенты уравнения ax+by=0. Для любого заданного х вычислить значение у. Входные данные: а,b,x. Выходные данные:у.

alex 56 [21]

var a,b,x:real;

begin

readln(a,b,x);

writeln((a*x)/b*(-1));

end.

0 0

4 года назад

Решите задачу номер 19, уже два дня парюсь над нею.

andreynbs

................................................................

0 0

3 года назад

В классе 32 ученика.какое количество информации содержится в сообщений о том,что к дочке пойдёт Коля Сидоров?

андрей23156

Там нет конкретного описания что к дочке пойдет Коля Сидоров

0 0

4 года назад

Найти сумму цифр целого трехзначного числа и четырёхзначного вводимого с клавиатуры. Кумир

гук [14]

Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.

Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).

алг

нач

цел а,б,н,ас=0,бс=0

лит ат,бт

вывод 'введите целое трёхзначное число: '

ввод а

вывод 'введите целое четырёхзначное число: '

ввод б

ат := цел_в_лит(а)

нц для н от 1 до длин(ат)

ас := ас + Цел(ат[н],0)

кц

вывод 'сумма цифр трёхзначного= ', ас, нс

бт := цел_в_лит(б)

нц для н от 1 до длин(бт)

бс := бс + Цел(бт[н],0)

кц

вывод 'сумма цифр четырёхзначного= ', бс, нс

вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б

кон

0 0

4 года назад

Какие величины располржены в порядке вощрастания 1 байт 512 Кбайт512 бит, 1байт,512бит,1Кбайт 1Кбит,1Кбайт,512бит

noloi [50]

1 байт=8 бит 1Кбайт=1024байт 1Мбайт=1024Кбайт =1024Мбайт 1Тбайт=1024Гбайт

0 0

4 года назад

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