Var i: integer;
begin
write('введите число ');
readln(i);
writeln('квадрат этого числа= ',I*i);
writeln('куб этого числа= ',power(i,3));
writeln('пятая степень этого числа= ',power(i,5));
end.
1. Ненуженпровод (проводник) 2. Ненужен интернет
1. Б
3. Б
5. В
7. Б
8. Б
9. А
10. В
11. А
12. Г
13. В
14. А
15. А
16. Г
17. Г
18. В
19. Б, Д
20. Д, В
Честно не уверена, что это верно. Но думаю что-то да правильное есть
var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.