Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
Var n: Word;
begin
write('Введите число ');
readln(n);
write((n mod 10 = 3) or (n div 10 mod 10 = 3) or (n div 100 = 3));
readln;
end.
Если ученик один, то один к одному, если аудитория, то один ко многим
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> double val1 = 0;</span>
<span> double val2 = 0;</span>
<span> cin >> val1 >> val2;</span>
<span> cout << "Cумма = " << val1+val2 << "\n";
</span><span> cout << "Разность = " << val1-val2 << "\n";</span>
<span> cout << "Произведение = " << val1*val2 << "\n";</span>
<span> cout << "Частное = " << val1/val2 << "\n";</span>
}
<span>
</span>