Program zadacha; uses crt; var a, i: integer; z: real; h: array [1..5] of integer; begin clrscr; write ('vvedite chislo A: '); readln (a); for i:=1 to 5 do begin write ('vvedite elemeny massiva H: '); readln (h[i]); z:=sqrt(h[i]/a); writeln ('H[i]=',h[i], ' Z=', z:0:4); end; readkey; end.
или
program zadacha; uses crt; var a, i: integer; z: real; h: array [1..5] of integer; begin clrscr; write ('vvedite chislo A: '); readln (a); for i:=1 to 5 do begin write ('vvedite elemeny massiva H: '); readln (h[i]); end; for i:=1 to 5 do begin z:=sqrt(h[i]/a); writeln ('H[', i, ']=',h[i], ' Z=', z:0:4); end; readkey; end.
Лифанов_Ольга
26.07.2021
История изобретения мобильного телефона 3 апреля 1973 года глава подразделения мобильной связи Motorola Мартин Купер, прогуливаясь по центру Манхеттена, решил позвонить по сотовому телефону. Прохожие очень удивлялись и не понимали, что происходит: до появления коммерческой сотовой телефонии оставалось еще 10 лет. 6 марта 1983 года был выпущен первый в мире коммерческий портативный сотовый телефон. В этот день компания Motorola представила аппарат DynaTAC 8000X - результат 15 лет разработок, на которые было потрачено более $100 млн.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Определите значение переменной b после выполнения данного алгоритма: a := 2 b := 20 a := b + a / 2 b := 24 – a
3
Объяснение:
Первое действие: a = 20 + 2/2 = 21
Второе действие: b = 24 - 21 = 3