Var x,i: real; begin writeln( vvedite vklad- ,x); readln(x); x: =x+(x*10/100); x: =x+(x*15/100); for - id811139320230319 от dariaskaldina 19.03.2023 10:24

Question

Информатика: Var x,i: real; begin writeln( vvedite vklad- ,x); readln(x); x: =x+(x*10/100); x: =x+(x*15/100); for i: =1 to 24 do x: =x+(x*1/100); writeln(x); end. где я ошибся?

dariaskaldina · Accepted Answer

1)  var  n:integer; begin  readln(n);  if(n 0)then write(0)  else write(n+4); end. 2)  var   a, b: integer;  begin   readln(a, b);   if(a = b) then write(1)   else write(0); end. 3) var   a, b, c, s: integer;  begin   s := 0;   readln(a, b, c);   if(a = 0) then s := s + 1;   if(b = 0) then s := s + 1;   if(c = 0) then s := s + 1;   write(s); end. 4) var   a, b, c, s: integer;  begin   s := 0;   readln(a, b, c);   if(a 0) then s := s + a;   if(b 0) then s := s + b;   if(c 0) then s := s + c;   write(s);...

Var x,i: real; begin writeln('vvedite vklad- ',x); readln(x); x: =x+(x10/100); x: =x+(x15/100); for i: =1 to 24 do x: =x+(x*1/100); writeln(x); end. где я ошибся?

MOGZ ответил

Var x,i: real; begin writeln('vvedite vklad- ',x); readln(x); x: =x+(x*10/100); x: =x+(x*15/100); for i: =1 to 24 do x: =x+(x*1/100); writeln(x); end. где я ошибся?

MOGZ ответил

Var x,i: real; begin writeln('vvedite vklad- ',x); readln(x); x: =x+(x10/100); x: =x+(x15/100); for i: =1 to 24 do x: =x+(x*1/100); writeln(x); end. где я ошибся?