Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
Var a,b,c:longint;
Begin
read(a,b,c);
writeln(a+b+c);
End.
Врррврывравркыупыувпыукваркыварпыуквари ответ 2
#include <iostream>
using namespace std;
int main()
{
int a = 0, b = 0, t = 0, M = 0;
int R = 0, F = 0, x = 0;
F = x * x - 8 * x + 10;
a = -5;
b = 5;
M = a;
for(;t == a;)
{
if(t > R)
{
M = t;
R = F;
}
}
}