FOR I:=1 TO N DO ………..;
Пример 2:
Вывести на экран все числа от 1 до 100 в обратном порядке:
for I:=100 downto 1 do
writeln (I);
program fakt;
var n,I,f : integer ;
begin
write (‘введите число n’);
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln (n,‘!=‘,f);
end.
program sinus;
var i : integer ;
y : real;
begin
i:=-30;
while i<=30 do
begin
y:=sin(i/180*3.14);
writeln (‘sin(‘,i,’)=‘,y);
i:=i+5
end
end.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть