Program zadanie;
Var n1,n2,a,b:integer;
Begin
Writeln('Ввести два 3-х значных целых числа');
Readln(n1,n2);
a:=(n1 mod 100) mod 10;
b:=(n2 mod 100) mod 10;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln('N1=',n1 div 10,a);
Writeln('N2=',n2 div 10,b);
Writeln('Сумма этих чисел=',(n1 div 10)+(n2 div 10)+((a+b) div 10),(a+b) mod 10);
<span>End.</span>
MSPaint -> входит в состав множества графических редакторов
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Натюрморт';
Println(s[6:8]+s[9]+s[7:9],s[9]+s[7:])
end.
<u>Результат</u>
мотор торт
Program n1;
const n=13;
var a: array [1..n] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
write('исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
if a[i]*4>a[i]*a[i] then sum:=sum+a[i];
end;
writeln;
write('искомая сумма: ',sum);
end.
F5
Или зеленая стрелочка возле верхнего меню