Регистрация
мопс173
11.03.2022 05:02
Информатика
Есть ответ 👍

Решите номера 2 и 3. В третьем трёзначное​

100
315
Посмотреть ответы 2

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

FarHowl
FarHowl
4,5(96 оценок)

№2

program n2;

var a,b,y:real;

begin

readln(a);

b:=sqrt(sqt(a)+1);

y:=abs(b+5)/sqr(b);

writeln(y)

end.

№3

program n3;

var a,b:integer;

begin

write('Введите трёхзначное число: ');

readln(a);

b:=a div 100;

a:=a div 10;

a:=b+a;

writeln('Сумма первых двух цифр вашего числа = ',a)

end.

P.s:Предположил, что язык выполнения - Pascal.

shakutis
shakutis
4,8(6 оценок)
Начало:                                     program p1;                                                     uses crt;                                                   var a,b,c,d,e,f,g,p: integer;                                                       begin ввод 7 чисел:                           read( a,b,c,d,e,f,g); происходит умнож:                     p: =a*b*c*d*e*f*g; вывод:                                       write(p); конец:                                         end.  

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