Pascal.abc Задача 1: Распечатать первые 16 ступеней 2. (для переменной
Pascal.abc Задача 1: Распечатать 1-ые 16 ступеней 2. (для переменной использовать тип longint). Задание 2: Пользователь вводит 10 чисел. Сделать счетчики, и подсчитать сколько чисел положительные, отрицательные, равные нулю. Задание 3: Пользователь вводит число n. Вывести сумму первых n целых чисел. - Добавление: Все задачи на цикл for
Задать свой вопрос1-ая
var
a : longint := 2;
begin
write('первые 16 ступеней числа ', 2,' : ');
for var i := 1 to 16 do begin
a *= 2;
write(a, ' ');
end;
end.
втрая
var
a, p, o, n : integer;
begin
write('введите 10 чисел : ');
for var i := 1 to 10 do begin
read(a);
if a lt; 0 then o += 1 else if a gt; 0 then p += 1 else n += 1;
end;
writeln('положительных = ', p);
writeln('отрицательных = ', o);
writeln('нулю = ', n);
end.
третья
var
n, s : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do s += i;
writeln('сумма чисел s=', s);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.