var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Вводите:');
Write('Кол-во слов: ',s.ToWords.Count)
end.
<u><em>Тестовое решение</em></u>
Вводите: А роза упала на лапу Азора
Кол-во слов: 6
Вот пример на C#:
int temp;
temp = Convert.ToInt32(Console.ReadLine());
if (temp <= 0)
{
Console.WriteLine("На улице холодно, оденься теплей");
}
if (temp > 0 && temp < 25)
{
Console.WriteLine("На илице прохрадно");
}
if (temp > 25)
{
Console.WriteLine("На улице тепло");
}
A)div это целочисленное деление, если х=200 то результат будет равен 2
b)mod это остаток от деления если х=1250 то результат будет 1250mod100div10= 50div10=5
C)Если например 17 разделить на 3 то ответ будет 2 так как остаток равен 2
<u>Таблица приоритетов операций</u>
<span><span><span>1) @, not, ^, +,
- (унарные), new</span></span>
<span><span>2) *, /, div,
mod, and, shl,
shr, as, is</span>
</span><span><span>3) +, - (бинарные), or,
xor
</span></span><span><span>4) =, <>, <, >,
<=, >=, in,
=>
1) * + = or - нарушение, четвертая группа впереди третьей
2) </span></span></span><span>not div or - <u><em>верно</em></u>
3) </span><span>and + div - нарушение, вторая группа после третьей
4) </span><span>xor = * - нарушение, вторая группа после четвертой
5) </span><span><span>> * - нарушение - вторая группа после четвертой</span></span>