Если у Марии было 3 собаки, то сколько их стало, когда Мария отдала 1 собаку Маше?
Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.
Никак, покупай лицензию, там автоматическое обновление.
Var n,i,k:integer;
begin
write ('Введите целое число (n>=2): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
#include<iostream>
using namespace std;
int a[100001];
int main()
{
int n; cin >> n;
for (int i = 0; i<n; ++i) cin>>a[i];
int count = 0;
for (int i = 1; i < n - 1; ++i) {
if (a[i] > a[i - 1] && a[i] > a[i - 1]) ++count;
}
cout << count<<endl;
return 0;
}