Ввести с клавиатуры 2 числа в интервале от 0 до 999. вывести их на экран столбиком в виде, удобном для сложения или умножения. то есть первый разряд первого числа под первым разрядом второго числа, второй разряд – под вторым и т.д.
Program chisla; uses crt; var a,b : integer; begin Write('Введите два числа: '); Read(a,b); if (a>=0) and (a<=999) and (b>=0) and (b<=999) then begin if (a>=100) and (a<=999) then writeln(a); if (b>=100) and (b<=999) then writeln(b); if (a>=10) and (a<=99) then writeln(' ',a); if (b>=10) and (b<=99) then writeln(' ',b); if (a>=0) and (a<=9) then writeln(' ',' ',a); if (b>=0) and (b<=9) then writeln(' ',' ',b); end else Writeln('Нужно ввести числа от 0 до 999'); end.
uses crt;
var a,b : integer;
begin
Write('Введите два числа: ');
Read(a,b);
if (a>=0) and (a<=999) and (b>=0) and (b<=999) then
begin
if (a>=100) and (a<=999) then writeln(a);
if (b>=100) and (b<=999) then writeln(b);
if (a>=10) and (a<=99) then writeln(' ',a);
if (b>=10) and (b<=99) then writeln(' ',b);
if (a>=0) and (a<=9) then writeln(' ',' ',a);
if (b>=0) and (b<=9) then writeln(' ',' ',b);
end
else
Writeln('Нужно ввести числа от 0 до 999');
end.