1. Написать программу, находящую все четные числа от нуля до n (n

1. Написать программку, обретающую все четные числа от нуля до n (n вводится с клавиатуры)., 2. Поменять программку так, чтобы выводились на экран нечетные числа. , 3. Дополните программку так, чтоб определялась сумма всех нечетных чисел от 1 до n., Отладка: , Введите число, 12, Нечетные числа: , 1 3 5 7 9 11 Сумма=36, Введите число, 37, Нечетные числа: , 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 Сумма=361, , 4. Напишите программку, которая просит у вас пароль, к примеру 111. Если пароль верный, то выводит извещение Молодец. Если после пятой пробы пароль все одинаково неверен, выводит известье Карта заблокирована.

Задать свой вопрос
1 ответ
Program prim;

var n,i,k: integer;

begin

writeln ('Введите число n', n);

readln (n);

for i:=0 to n do

begin

if (i mod 2=0) then k:=i;

write(k); end; end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт