Вывод на экран: 24
var t, i: integer;
begin
t := 1;
for i:= 1 to 4 do
t := t * i;
writeln (t);
end.
var t, i: integer;
begin
t := 1;
for i:= 1 to 4 do
begin
t := t * i;
writeln (t);
end
end.
Вывод на экране:
1
2
6
24
var a, i : integer;
begin
a:=0;
for i := 1 to 10 do
begin
a:=a+5;
writeln (a);
end
end.
Вывод на экран: 70
var s, k: integer;
begin
s := 0;
for k := 6 to 12 do
s := s+10;
writeln(s);
end.
Вывод на экран: 31
var s, і :integer;
begin
s := 3;
For і := 2 to 5 do
s := s + 2* і;
writeln (s) ;
end.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть