ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!

Question

ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!

---

Comments

язык программирования какой

---

Паскаль

---

баллов маловато конеш

Answer 1

 var K,I:integer;begin  K:=0;for I:=1 TO 99 doIF I MOD 5=0 THEN Inc(K);Writeln(K);end.

 var S,I:integer;begin  S:=0;FOR I:=2 TO 50 doIF I MOD 2 =0 THEN S:=S+I;Writeln(S);end.
 var X:real;beginX:=-2;while X<=2 DO BEGINWRITELN(2*X*X+X+2);X:=X+0.1;end;end.

Comments

Карл

---

ахахха,ладно,спасибо,сама разберусь

---

я прост советую зараннее

---

Смотри

---

var X:real;
begin
X:=-2;
while X<=2 DO BEGIN<br>WRITELN(2*X*X+X+2);
X:=X+0.1;
end;
end.

---

Может когда очень много строк...

---

Оно само все убирает...

---

var S,I:integer;begin S:=0;FOR I:=2 TO 50 doIF I MOD 2 =0 THEN S:=S+I;Writeln(S);end.

---

var S,I:integer;
begin
S:=0;
FOR I:=2 TO 50 do
IF I MOD 2 =0 THEN S:=S+I;
Writeln(S);
end.

---

var K,I:integer;
begin
K:=0;
for I:=1 TO 99 do
IF I MOD 5=0 THEN Inc(K);
Writeln(K);
end.