Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
Решение:
В каждом слове вычеркнем лишние буквы, оставляя только те, которые используются как римские цифры {I,V,X,L,C,D,M}. Получим римские числа, а в правом столбце их десятичные эквиваленты. Словам INFORMATICS и WINDOWS соответствует значок [error], потому что полученные наборы цифр {IMIC, ID} не сответствуют правилам записи римских чисел {см. прикреплённый рисунок}. Слову MEDALIST соответствует число MDLI=1551.
ОТвет: 1551
в переменную S вводится возраст Саши ,
в переменную М вводится возраст Маши
если S > M тогда
выводим "Саша старше Маши "
иначе
если S < M тогда
выводим "Маша старше Саши"
иначе
выводим "Саша и Маша ровестники"
Так наверно?
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Сколько чисел обработать?');
var s:=1;
loop n do begin
var k:=ReadInteger('Введите число');
if k>0 then s*=k
end;
Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.
<u>Пример</u>
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63