ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC!!! 1) Ввести с помощью read(); трехзначное число N. В нем зачеркули 1-ю слева цифру и приписали ее в конце числа. После этого число умножили на 10. Вывести полученное число 2) Ввес...
ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC!!! 1) Ввести с помощью read(); трехзначное число N. В нем зачеркули 1-ю слева цифру и приписали ее в конце числа. После этого число умножили на 10. Вывести полученное число 2) Ввести с помощью read(); числа A — сторона квадрата, R - радиус окружности (тип real). Выяснить, площадь какой фигуры больше: квадрата или круга.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы