Регистрация
BroKeNxHeArT
06.09.2022 20:40
Информатика
Есть ответ 👍

Составить пррограммы для паскаль ! 1) ввести с read(); трехзначное число n. в нем зачеркули 1-ю слева цифру и приписали ее в конце числа. после этого число умножили на 10. вывести полученное число 2) ввести с read(); числа a — сторона квадрата, r - радиус окружности (тип real). выяснить, площадь какой фигуры больше: квадрата или круга.

176
442
Посмотреть ответы 3

Ответы на вопрос:

ankreinas
ankreinas
4,5(80 оценок)

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.

korzhik559
korzhik559
4,8(49 оценок)

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.

Nipep
Nipep
4,6(63 оценок)
1) var c,a,b: real; begin readln (a); readln (b); c: =(a*a+b*b)*(a*a+b*b); writeln (c); end. 2) var c,s,p: real; begin readln (s); readln (p); c: =s+p*p; writeln (c); end. 3) var c,x,y: real; begin readln (x); readln (y); c: =x+y/2; writeln (c); end. 4) var c,x: real; begin readln (a); c: =15*x+3,5; writeln (c); end.

Популярно: Информатика