Записать год, месяц и число своего рождения с помощью римских цифр Вот это: 20.12.2001

Знания

Информатика

2 ответа:

fdffd4 года назад

0 0

XL MM| XX 12. 2001. 20

Александр20194 года назад

0 0

XX.XII.MMI.-20.12.2001.

Читайте также

В одномерном массиве а=(а1, а2,....аn) отрицательные элементы, имеющие четный порядковый номер, переписать в начало массива.

ДЫМ

Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
<span>end.
abc pascal</span>

0 0

2 года назад

Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число. нужно написать прог

Рита29

Program Integer13;
var x,a,b,c,p:integer;
begin
Writeln('Vvedite chislo ');
readln(x);
a:=x div 100;
c:=x mod 100;
p:=c*10+a;
Writeln ('Result= ',p);
readln;
end.