Предмет: Физика, автор: aysheibraimova

Опредилите работу совершаемую при поднятие груза весом 4Hна высоту 4 м

Ответы

Автор ответа: ЮрВас
0
Опредилите работу, совершаемую при поднятии груза весом 4 H на высоту 4 м.
///
A=Fs=Fh=4*4=16 (Дж)
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Английский язык, автор: saraevaleksej94
Сделай предложение отрицательным
Philip has just signed the contract
6 лет назад
Предмет: История, автор: aliaahmetzanova
Укажите одного
исторического деятеля нашегоземляка (жизнь которого была связана
с нашим регионом или населенным пунктом) Какое значение длянашего
региона, или населенного пункта, или нашей страны(РОССИЯ) в целом имело событие
(явление процесс), непосредственно связанное с указанным Вами памятным
местом?Город Набережные Челны!ПРОШУ,ПОМОГИТЕ, ДАМ МНОГО БАЛЛОВ!​
6 лет назад
Предмет: Биология, автор: Аноним
В экосистеме есть связь​
6 лет назад
Предмет: Информатика, автор: fatid
У меня есть готовый код паскаля (но я не знаю, по какой причине у меня не получается его увидеть как требуется в задании (Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N вводится с клавиатуры.)
Можно переделать код, но без использования uses crt и т.д. Сделать нужно с циклом for while и/или repeat. К слову, пользуюсь Pascal.ABC.NET (не знаю, какие значения и где нужно вводить, чтобы получить результат, требуемый в задании).

program zadacha3;
var
n, o, p, k, i: integer;
a: real;
begin
repeat
write('N = ');
readln(n);
until (n > 0);
i := 0;
k := 0;
p := 0;
o := 0;
repeat
write('Ввод:');
readln(a);
i := i + 1;
if a < 0 then o := o + 1 else
if a > 0 then p := p + 1 else k := k + 1;
until i = n;
writeln('Кол-во положительных: ', p);
writeln('Кол-во отрицательных: ', o);
writeln('Кол-во нулей: ', k);
readln;
end.
9 лет назад
Предмет: Литература, автор: 196226c
отзыв о книге золотой ключик
9 лет назад