Ребятки помощь нужна срочно! Паскаль 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.
Не нашли ответ?
Похожие вопросы