Учеба и наука

Решено

помогите написать на visual basic плиз - вопрос №767560

дано четырхзначное число. написать программу составляющую новое число. первая цифра которого — целая часть от деления первой цыфры на вторую. вторая — остаток от деления третьей цифры на четвёртую

заранее лагодарен, оценю !!!

сентябрь 24, 2013 г.

Сообщить о нарушении

Всего ответов: 2

Эльвира

59-й в Учебе и науке

0 отзывов

program a1;
var
a,b,c,r:byte; l,k:word;
begin
read(l);
a:=l mod 10;
b:=l div 10 mod 10;
c:= l div 100 mod 10;
r:= l div 1000 mod 10;
k:=c*1000+r*100+a*10+b;
write(k); end.