1. Информатика
  2. Найдите k k: =1 for c: =1 to

Найдите k k: =1 for c: =1 to 5 do if c mod 2 < > 0 then k: =k*c;

пончоДжян пончоДжян    2   08.08.2019 20:10    0

Ответы
mzhenyak1999 mzhenyak1999  04.10.2020 05:48
Var
    k, c: integer;

begin
    k := 1;
    for c := 1 to 5 do
        if c mod 2 <> 0 then
            k := k * c;
    writeln(k);
end.

ответ 15
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MEGRAD MEGRAD  14.08.2019 16:30
Информационное сообщение объемом 3 килобайта содержащий 6144 символа. определить информационный вес одного символа использованного алфавита...
nemcevakata401 nemcevakata401  29.06.2019 07:40
Считая, что каждый символ кодируется одним байтом, определите ин-формационный объём следующего текста: в 1642 году б.паскаль создал первую механическую счетную машину. а) 64 бита...
akiceijuro akiceijuro  23.06.2019 20:00
1) как информатика связана с эвм? 2)как широко используется эвм в настоящее время и для чего? ( несколько примеров) 3) когда была создана первая эвм?...
СталкерняотВовы СталкерняотВовы  23.06.2019 20:00
Вводится две строки. длина каждой не превосходит 255 символов. определить, верно ли, что все элементы первой строки входят во вторую...
Nastay1234899 Nastay1234899  23.06.2019 20:10
Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a : =1819 b : =(a div 100)*10+9 a : =(10*b-a) mod 100...
СеверусСнегг СеверусСнегг  23.06.2019 20:10
Составьте программу вычисления значения функции y по формуле y=cos (12x)+|x|, для которой значение аргумента x введите с клавиатуры....
killmepleaseeee killmepleaseeee  23.06.2019 20:10
Что означает слово интернет в аббривиатуре...
Мадина1111111112 Мадина1111111112  23.06.2019 20:10
Паскаль решит,-с клавиатуры вводятся числа a и b. а)посчитать количество чисел кратных 7. б)посчитать сумму всех чисел. с)посчитать произведение чисел кратных 13, или написать сообщение...
Вилка68762 Вилка68762  23.06.2019 20:10
Разработайте проект, который находит модуль числа. записать...
taaas7107 taaas7107  23.06.2019 20:10
Что означает слово интернет в аббривиатуре...

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