Ну что знаю подскажу
3. 1 вариант
4. 1 вариант (т.е. 18)
6. Варианты 1;2;4
7. Вариант 2
Var a, n, k: integer;
Begin
Write('Количество чисел - ');
readln(n);
k:=0;
For var i:=1 to n do
begin
read(a);
if (a mod 10 =0) then k:=k+1;
end;
Writeln(k);
End.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int check(int, int);
int main()
{
int a, b, c;
cout << "Enter a, b, c: ";
cin >> a >> b >> c;
cout << "The largest number is " << check(a, check(b, c)) << endl;
return 0;
}
int check(int x, int y)
{
return x >= y ? x : y;
}
Ну а с блок-схемой как-нибудь самостоятельно...
Var
i,n: integer;
a:real;
begin
n := 1;
readln(i);
while n <= i do
begin
a:=n/(n*n);
n:=n+1;
writeln(a);
end;
end.