1. Информатика
  2. Составить программу в паскаль.

Составить программу в паскаль. даны числа от 1 до 100. четные числа увеличили в 2 раза, нечетные заменить 0

Dindonn Dindonn    1   24.08.2019 17:40    1

Ответы
malka75 malka75  05.10.2020 17:03
Var
A:integer;
Begin
For A:= 1 to 100 do
    Begin
    if A mod 2 = 0 then Write(A*2,' ')
    else Write('0 ')
    End;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
fayafaya1 fayafaya1  20.01.2021 12:35
Практическая работа 1) Вывести таблицу умножения на 9 2) Заполните массив случайными числами в интервале [0,100] Ребят в питоне код надо сделать ваши...
AlisaKalten AlisaKalten  20.01.2021 12:35
в таблице f представлены данные о количестве голосов поданных при голосовании за лучший из 10 представленных на конкурс проектов по информатике в 9-м б классе (...
Ксения095 Ксения095  20.01.2021 12:35
У чому особливість установлення середовища програмування Thonny на персональний комп ютер...
Lezka Lezka  20.01.2021 12:35
С кругами эйлера6. В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «», а для обозначения логической операции «И»...
masya05781 masya05781  22.05.2019 03:20
Распишите. 1.определите значение целочисленных переменных x и y после выполнения фрагмента программы х : = 19; у : = 3; z : = у*2; у : = х mod у; х : = х - z; у...
leedercools leedercools  22.05.2019 03:20
Каждый символ в unicode закодирован двухбайтным словом. оцените информационный объем следующего предложения в этой кодировке: без труда не вытащишь рыбку из пруда....
Gbdngggvg Gbdngggvg  22.05.2019 03:20
Переведите число 125 из десятичной системы счисления в двоичную систему счисления. сколько единиц содержит полученное число? в ответе укажите одно число – количество...
kivonen3p08qoq kivonen3p08qoq  22.05.2019 03:20
Дано целое число x и натуральное n. составить алгоритм вычисления х в степени n . написать программу на паскале....
nikita112289 nikita112289  22.05.2019 03:20
11)на рисунке – схема дорог, связывающих города а, б, в, г, д, е, ж и к. по каждой дороге можно двигаться только в одном направлении, указанном стрелкой. сколько...
Арнэлла1 Арнэлла1  22.05.2019 03:20
Var s,k: integer; begin s: =0; for k : =3 to 7 do s: =s+6; writeln(s); end. запишите значение переменной s, полученное в результате работы этой программы...

Популярные вопросы