Помогите пожалуйста,распечатать на паскале первые nчетных чисел,заранее пасибо
5-9 класс
|
var a:array[1..100] of integer;
n:integer;
begin
readln(n);
for i:=1 to 2*n do
if a[i] mod 2 =0 then writeln(a[i]);
end.
Другие вопросы из категории
1) 101000101(2)-А10
2) 111011010(2)-А8
3) 1101101110(2)-А16
4) 253(8)-А2
5) 2А3(16)-А10
НОД двух целых чисел.
(ввод данных осуществляться в режиме диалога).
а:=19; b:=23; c:=7;
if a if b>c then a:=c
if b>a then b:=c
writeln ('a=',a', b=',b,'c=',c)
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
числа N является четным числом
ПРОШУУ ПОМОГИТЕ ПОЖАЛУЙСТА(((РЕШАТЬ НА ПАСКАЛЕ..
раза дороже 2 класса.Найти сумму денег полученных авиакомпанией от продажи данных билетов.
Прошу помогите пожалуйста решать на паскале..
ПРОШУУУ ПОМОГИТЕ ПОЖАЛУЙСТА((((РЕШАТЬ НА ПАСКАЛЕ..
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА