САБАҚТЫҢ МАҚСАТЫ:
FOR-DOWNTO
Ада Лавлейс
Блез Паскаль
Билл Гейтс
Никлаус Вирт
Чарльз Бэббидж
.
Var i,s,k: integer;
Begin
s:=0; k:=0;
For i:=1 to 10 do
If i mod 2=0 then s:=s+i else k:=k+i;
Writeln('жұп сан=',s,',','тақ сан=',k);
End.
var x,y:real;
begin
x:=1;
while x<=3 do
begin y:=sqrt(x+1)-1/x;
writeln('x=',x,', ', 'y=',y:5:2);
x:=x+0.2;
end; end.
P=1*2*3*…*N. N! факториалды табу программасын жаз.
Var r,n,k:integer;
Begin
Write('n='); Read(n);
k:=1; r:=1;
Repeat
r:=r*k;
k:=k+1;
Until k>n;
Write(r); End.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть