1. program
HelloWorld;
var summ,i
:integer;
begin
i:=2;
while i<=200 do
begin
summ := summ + i;
i:=i+2;
end;
writeln(summ)
end.
2.
program
HelloWorld;
var S,i,n:
integer;
begin
<span> while i<6 do</span>
<span> begin</span>
<span> writeln('</span>Введите значение число:');
<span> readln(S);</span>
<span> if S mod 2 = 0 then n:=n+1;</span>
<span> i:=i+1;</span>
<span> writeln(n);</span>
<span> end;</span>
<span> </span>writeln('Количество
четных:');
writeln(n);
end.
var a, b, c , d : integer;
begin
read(a);
b := a mod 10;
c := a div 10 mod 10;
d := a div 100;
if (b mod 2 = 1) and (c mod 2 = 1) and (d mod 2 = 1) then
writeln('Нечетны')
else
writeln('Есть четные');
end.
Отправитель<span>, стремящийся оказать на </span>получателя<span> то или иное воздействие, передает ... </span>Получателю<span> для пониманий </span>информации<span> не -. обходимо декодировать ... Полный единичный цикл коммуникации, или простая </span>схема<span> ее структуры, ... </span>отправителя<span> и </span>получателя информации, но и сам процессобмена<span> ...</span>
У нас есть три числа: 7, 11, 2001.
В римской системе счисления использовались такие цифры:
I - 1
V - 5
X - 10
L - 50
C - 100
D - 500
M - 1000
В римской системе принцип записи числа - повторение простых цифр, причем записываются в начале большие, после меньшие, значение оного является сумой всех записаных:
I - значит 1
II - значит 1 + 1 = 2.
VI - значит 5 + 1 = 6
Так же есть правило, что если меньшая цифра стоит перед большей, то из большой вычитаем меньшую, это необходимо для избежания большого кол-ва повторений. Пример:
IIII = 1 + 1 + 1 + 1 = 4
IV = (-1) + 5 = 5 - 1 = 4
Второй вариант записи короче, по этому его и используют.
Теперь необходимо использовать правильную их комбинацию для записи чисел.
7 = VII
11 = XI
2001 = MMI
Полный ответ записаный в строку имеет вид:
VII.XI.MMI
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" - тут и в моем профиле. Яркого вам настроения!