Гайсин Радик Ромель улының шәхси сайты

uses crt;
var a,b,c,d,i,n:integer;
begin
readln(a);
b:=2; c:=1;
for i:=1 to a do
begin
c:=c*b;
end;
writeln(с);
end.

задача1111

Program pr;
uses crt;
var
s,d,e,f:real;
b,a,c:integer;
begin
readln(a);
s:= 1;
for b:=1 to a do
s:=s+1/(10*a+2);
writeln(s);
end.

2нең 2дәрәҗәсе 4,3дәрәҗәсе 8!

Роберт, 2 в N ной степени. Тагын уйлап кара әле.

Program pr;
uses crt;
var a,b,c,d,e,f:integer;
begin
readln(a);
b:=a*a;
writeln(b);
end.

Ну бит 3нен 2 нче дэрэжэсе 8 тугел 9! Шуна аптырап киткэн идем.

яңа задачаны чиш. 2 N степень анда...Башта гади чишелеш, аннан файл белән...

Задача111 не анламадым. Сез аны копировать иткэндэ хата китмэгэнме?

Ярар,нишләп эндәшмәгәннәрдер,миңа әйтүче юк әле.Спасибо за информацию

Мина апам эйтте иртэгэ хэрбер мэктэп ноутбук алып тошэ хэм анда С++ хэм паскаль булырга тиеш диде

мин менэ шулай эшлэп караган идем. санны кертэлэм тик факториал чыгармый.

Program pr;
uses crt;
var a,b,c,d,e,f:integer;
begin
readln(a);
for c:= 1 to a do
b:=b*c
end.

uses crt;
var a,b,c,n,i,d:integer;
begin
read(n);
for i:=1 to n do
begin
a:=a+i*i;
end;
writeln(a);
end.

"Високосный год"ны анламадым мин.

Беренчесен эшлэдем. Хэзер менэ икенче задачаны эшлэп утырам.

Program pr;
uses crt;
var a,b:integer;
begin
readln (a);
readln (b);
If a>b
then writeln (a)
else
If b>a
then writeln (b);
end.