Ребятки помощь нужна срочно! Паскаль 9 класс. пользоваться можно case, while, repeat (но не uses!!) ВОТ 2 ЗАДАЧИ!

Ребятки помощь нужна срочно! Паскаль 9 класс. пользоваться можно case, while, repeat (но не uses!!) ВОТ 2 ЗАДАЧИ!
Гость
Ответ(ы) на вопрос:
Гость
1 задача: var a,b,kosh:int64; begin kosh:=0; a:=0; while a<1 do    begin    writeln('Vvedite nomer mesyatsa');    read(b);    if b<1 then kosh:=kosh+1;    a:=b;    end; if a=2 then begin write ('28 ili 29 dney'); writeln('Sdelano oshibok ',kosh); end; if (a=1) or (a=3) or (a=5) or (a=7) or (a=8) or (a=10) or (a=12) then                                                                begin                                                                writeln('31 den');                                                                  writeln('Sdelano oshibok ',kosh);                                                                end;       if (a=4) or (a=6) or (a=9) or (a=11) then                                                             begin                                                                writeln('30 dney');                                                                  writeln('Sdelano oshibok ',kosh);                                                                end; end.         
Не нашли ответ?
Ответить на вопрос
Похожие вопросы