ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC!!! 1) Ввести с помощью read(); трехзначное число N. В нем зачеркули 1-ю слева цифру и приписали ее в конце числа. После этого число умножили на 10. Вывести полученное число 2) Ввести с помощью read(); числа A — сторона квадрата, R - радиус окружности (тип real). Выяснить, площадь какой фигуры больше: квадрата или круга.
More Questions From This User See All
Answers & Comments
1)
var n:integer;
begin
read(n);
n := 100*(n-100*(n div 100)) + 10*(n div 100);
write(n)
end.
2)
var a,r:real;
begin
readln(a,r);
if(a*a>3.1415927*r*r) then
writeln('Square!')
else if(a*a<3.1415927*r*r) then
writeln('Circle!')
else
writeln('Equal!')
end.
Verified answer
Program Zadacha;
var
N: integer;
M: integer;
Begin
Read(N);
M := N div 100;
M := M + ((N mod 100) div 10)*10;
M := M + (N mod 10)*100;
WriteLn(M);
ReadLn;
ReadLn;
End.