Var a,b,c: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b)
End.
Var a,b,c,d: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
d:=a mod 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b,d)
End.
(PascalABCNET)
Program z1;
var x,y:integer;
begin
readln(x,y);
if x>y then writeln(x) else writeln (y);
end.
#include
int main()
{
int a = 1;
for (int i = 1; i <= 100; i++)
{
if (i%2 == 0) a*=i;
}
cin.get();
return 0;
}
P. S. Dev C++ это не язык, это среда разработки, язык тут просто C++.
Ответ в прикрепленном файле
Девушка потратила в магазине 1458.04 рубля