Информатика
Информатика, 14.10.2019 10:20, котя277

Вопрос/Задача:

Определить количество положительных чисел среди заданных чисел а, в, и с​

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

Ответ
Ответ разместил: Гость

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.

Ответ
Ответ разместил: Гость

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

 

byck is my dog.

Ответ
Ответ разместил: Гость

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

Ответ
Ответ разместил: senyadubra

ответ:

program examplen;

var

  a, b, c: real;

  k: integer;

begin

  writeln ('введете три числа: ');

  readln (a, b, c);

  k : = 0;

  if a > 0 then

    inc (k);

  if b > 0 then

    inc (k);

  if c > 0 then

    inc (k);

  writeln ('количество положительных чисел = ', k);

  readln;

end.

Похожие вопросы

Вопросов на сайте: 10585865