вторник, 15 января 2013 г.

Задание для 8 класса

15.01.2013

Учебник (часть 1) стр. 245 п. 4.4.3
цикл с постусловием.
пример 1 - разобрать.
Задание:


Решение:



















Задание для самостоятельной работы:

Ответ и текст программы оставить в виде комментария.

1 комментарий:

  1. Program P;
    var
    S,K,A,SR:real;
    begin
    S:=0;
    K:=0:
    A:=100
    repeat
    S:=S+A;
    K:=K+10;
    A:=A-1;
    until
    A>9;
    SR:=S;
    writeln ('SR=',SR);
    end.

    ОтветитьУдалить

Введите ответ