Задания на освоение инструментария программирования

Дана программа вывода числовой последовательности с использованием цикла с параметром. Напишите программу, соответствующую предложенной, используя:

Вариант 1. Цикл с предусловием

Вариант 2. Цикл с постусловием.

№

BASIC

Pascal

a)

FOR i=1 TO 10

PRINT i

NEXT i

for i:=1 to 10 do write (i);

b)

FOR i=100 TO 10

PRINT i

NEXT i

for i:=100 downto 10 do write (i);

c)

s=0

FOR i=1 TO 100

IF i MOD 2=0 THEN s=s+i

NEXT i

PRINT s

s:=0;

for i:=1 to 100 do if i mod 2 =0 then s:=s+i;

write (s);
Дана последовательность чисел, вводимых с клавиатуры и оканчивающаяся нулем. Составьте программу вычисления: суммы всех чисел последовательности; среднего арифметического всех чисел последовательности: суммы только отрицательных и суммы только положительных чисел последовательности. Дана последовательность чисел, вводимых с клавиатуры. Найти, сколько чисел будет введено, пока ни встретится число, большее чем N (N – задано с клавиатуры). Составьте программу определения первого числа меньшего чем N (N – задано с клавиатуры) среди чисел последовательности: Составьте программу определения первого числа большего чем N (N – задано с клавиатуры) среди чисел последовательности: Составьте программу определения первого числа большего чем N (N – задано с клавиатуры) среди чисел последовательности: Вычислить сумму числовой последовательности с заданной точностью e. Считать, что требуемая точность достигнута, если очередное слагаемое числовой последовательности по модулю меньше заданного с клавиатуры числа e (0<e<1):

8. Составьте программу определения порядкового номера элемента числовой последовательности , приближающегося к 1 с заданной точностью e (0<e<1).

9. Дано число N с клавиатуры. Составьте программу определения:

a. количества разрядов числа N;

b. количества цифр 3 в числе;

c. количества цифр, равных первой цифре числа;

d. суммы всех цифр числа;

e. суммы четных цифр числа;

f. верно ли, что суммы цифр четных и нечетных разрядов равны.