Как можно решить 9 задание в ОГЭ другим способом? Вот задача: Var s, n: integer; Begin s := 2; For n := 2 to 5 do s := s + n*2; Writeln(s); End. Как то можно что-то в степень возвести, а что?? Чтоб долго таблицу не писать
120
ОТВЕТЫ
1) s=2 n=2 s:=2+4=6
2) s=6 n=3 s:=6+6=12
3) s=12 n=4 s=12+8=20
4) s=20 n=5 s=20+10=30
При каждом шаге будем получать
6_12_20_30...
Видим закономерность
2*3_3*4_4*5_5*6...
Var
s,s1,n: integer;
Begin
writeln(Старый код);
s := 2;
For n := 2 to 5 do
begin
Write(s= ,s);
s := s + n*2;
Write( n= ,n);
Writeln( s= ,s);
end;
writeln;
writeln(Новый код);
for n:=2 to 5 do
begin
s:=n*(n+1);
write(n= ,n);
writeln( s= ,s);
end;
End.
2) s=6 n=3 s:=6+6=12
3) s=12 n=4 s=12+8=20
4) s=20 n=5 s=20+10=30
При каждом шаге будем получать
6_12_20_30...
Видим закономерность
2*3_3*4_4*5_5*6...
Var
s,s1,n: integer;
Begin
writeln(Старый код);
s := 2;
For n := 2 to 5 do
begin
Write(s= ,s);
s := s + n*2;
Write( n= ,n);
Writeln( s= ,s);
end;
writeln;
writeln(Новый код);
for n:=2 to 5 do
begin
s:=n*(n+1);
write(n= ,n);
writeln( s= ,s);
end;
End.
32
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Felokus
Подскажите пжДаны два числа А и В.Найти их произведение, ...
2019-01-22 01:09:50
Овдоким
ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА ...
2019-01-22 01:08:19
Niadkiv
2019-01-22 01:07:56
Архипп
В алгоритме "Портрет Робота,, допишите команды ...
2019-01-22 01:07:46