var mass:array[1..100] of integer; g,s,i,sum:integer; begin sum:=0;i:=0; // задаем начальное значение счетчику randomize; //рандомизация writeln('введите количество чисел в массиве (до 100)'); readln(g); // водим количество чисел for s:=1 to g do // от нуля, до кол-ва чисел в массиве begin i:=i+1; mass[i]:=random(51); //51 потому что всегда -1 еще идет... if (mass[i] mod 2) = 0 then sum:=sum+mass[i]; //проверяем на четность и плюсуем, если четное. writeln(mass[i]); end; writeln('чисел в массививе - '+g); //выводим значенияwriteln('сумма четных элементов = '+sum); end.
a,b:integer; d:string[45]; begin SetConsoleOutputCP(1251); writeln('Введите число в диапазоне от 1 дo 100'); write('a='); readln(a); b:=a mod 10; a:=a div 10; case b of 0: d:=''; 1: d:='I'; 2: d:='II'; 3: d:='III'; 4: d:='IV'; 5: d:='V'; 6: d:='VI'; 7: d:='VII'; 8: d:='VIII'; 9: d:='IX'; end; b:=a mod 10; a:=a div 10; case b of 0: d:=''+d; 1: d:='X'+d; 2: d:='XX'+d; 3: d:='XXX'+d; 4: d:='XL'+d; 5: d:='L'+d; 6: d:='LX'+d; 7: d:='LXX'+d; 8: d:='LXXX'+d; 9: d:='XC'+d; end; b:=a mod 10; a:= a div 10; case b of 0: d:=''+d; 1: d:='C'+d; end; writeln('B Римской системе счисления ' ,d); readln; end.
2. 25
Объяснение:
Если A > B значит Z = A*A Если Z = B*B
A > B то Z = B*B
Z = 5*5
Z = 25