// PascalABC.Net v3.1
var
n,p: integer;
begin
// 1. вывод нечетных от 50 до 40
n:=51;
while n>=41 <span>do begin </span>
writeln(n);
n:=n-2;
end;
// 2. Произведение от 7 до 12
p:=1;
n:=7;
while n<=12 do begin
p:= p* n;
n :=n+1;
end;
writeln(p);
end.
#include <iostream>
int main (){ int pow = 0, n; std::cin>>n; for (int i = 1; pow<n*n; i+=2) { pow+=i; } std::cout<<pow;}
Аня-математика.
Саша-география.
Лена-история.
Вася-Литература.
Миша-Информатика
var
a: <em>integer</em>;
begin
readln(a);
writeln(a mod 10, a div 10 mod 10, a div 100);
<span>end.</span>