Var
a,b,c:real;
k:integer;
begin
Write('Введите три числа через пробел: '); Read(a,b);
k:=0;
if a>0 then Inc(k);
if b>0 then Inc(k);
if c>0 then Inc(k);
Writeln('Количество отрицательных чисел ',k)
end.

Пример
Введите три числа через пробел: 23.5 -24 0
Количество отрицательных чисел 1

0 0

4 года назад

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

Каскадные таблицы стилей (CSS) .Какой тэг языка HTML используется для подключения стилевого файла к веб-странице?

Инга446

Тег <link> с параметрами: rel, type, href
Как пример:
<link rel="stylesheet" type="text/css" href="mysite.css">

0 0

3 года назад

Выберите пример условного алгоритма в кратком виде варианты: а) For i=1 to n do b) If a>0 then a:=1 else a=0 c) If a>0

KirikProdaksn

пример условного алгоритма в кратком виде
c) If a>0 then a:=a+1

0 0

1 год назад