var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Задание 1
#include <iostream>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
cout << a - b;
}
Задание 2
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << pow(a, 2) << ' ' << pow(a, 3)<< ' ' << pow(a, 5);
}
Задание 3
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << "The next number for the number " << a << " is " << a + 1 <<"!\n" <<"The previous number for the number "<< a << " is " << a - 1 <<"!";
}
Задание 4
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << (3 * pow(a, 3) + 18 * pow(a, 2)) * a + 12 * pow(a, 2) - 5;
}
Задание 5
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
cout << a % 7 << "\n" << b % 7 << "\n" << c % 7;
}
Задание 6
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a, b, c, a1, b1, c1;
cin >> a >> a1 >> b >> b1 >> c >> c1;
cout << a1 % (8 - a) << "\n" << b1 % (8 - b) << "\n" << c1 % (8 - c);
}
S = 30, если поочередно выполнять действия, а легче было бы прогу написать)
Под алфавитом<span> следует понимать набор букв, знаков препинания, цифр, скобок и др. символов, используемых в тексте. В алфавит также следует включить и пробел, т. е. пропуск между словами</span>