Внизу экрана нарисованы три фигуры: квадрат, кружок, звездочка. пользователь щелкает мышкой по данным фигурам и в остальной части экрана в случайном месте появляются выбранные фигуры. pascal

Саламандра flek$$$1112942

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

const n=7;

var

i:integer;

v:double;

begin

v:=1000;

for i:=1 to n do begin

v:=v*1.02;

end;

writeln('суммарный прирост вклада через 7 месяцев = ',v:4:0);

end.

1

schoolteacher

39 / 39 / 49

Регистрация: 18.12.2015

Сообщений: 127

05.02.2016, 08:37 3

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

program z1655173;

const n=7;

var i:integer;

v0,v1:real;

begin

v0:=1000;v1:=v0;

for i:=1 to n do begin

v1:=v1*1.02;

end;

writeln(’Сумма вклада через 7 месяцев =',v1:4:2,' руб.');

writeln(’Суммарный прирост вклада через 7 месяцев =',v1-v0:4:2,' руб.');

end.

1

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)