4 года назад

9. Составить программу вычисления функции: Y=2(a+3)+3(b+3)^2

Знания

Информатика

1 ответ:

Passdok [68]4 года назад

0 0

Ответ:

Объяснение:

var

a, b, y:real;

begin

writeln('Input a = ');

readln(a);

writeln('Input b = ');

readln(b);

y:=2*(a+3)+3*(b+3)*(b+3);

writeln('y = ', y:3:3);

end.

Читайте также

Придумайте услугу информации

марисулька

Вопрос сформулирован скорее всего неверно

Если отвечать по существу исходя из того что понял, то можно перефразировать как "придумайте информационные услуги"

Если поискать в поисковиках, то по моему перефразированному вопросу можно найти ответ, всего доброго!

0 0

4 года назад

Написать рекурсивную программу вывода на экран следующей картинки: 1111111111111111 (16 раз) 222222222222 (12 раз) 33333333 (8

Natali09 [59]

Procedure p(k:integer);
var i:integer;
begin
for i:=1 to 20-4*k do write(k);
writeln
if k<4 then
begin
p(k+1);
for i:=1 to 20-4*k do write(k);
writeln;
end;
end;
begin
p(1);
end.

Результат:
1111111111111111
222222222222
33333333
4444
33333333
222222222222
1111111111111111

0 0

4 года назад

Помогите: Составьте слова из букв к,е,н,г,ш,а,п,р,о,м,и,т

irichka7575

Шар,шаг,ритм,рог,ринг,тигр,рот,ром,ген,мера,кино,мир,пот,море,ком,кит,тик,ток,шпат,морг,тир

0 0

4 года назад

Прочитать ещё 2 ответа

Составить программу по блок-схеме в Паскаль 25БАЛОВ

Маришшшшка

Program n1;
var n,i: integer;
a,y: real;
begin
readln(a,n);
y:=1;
i:=1;
while(i<=n) do
begin
y:=y*a;
i:=i+1;
end;
write(y);
end.

0 0