Ребятки помощь нужна срочно! Паскаль 9 класс. пользоваться можно case, while, repeat (но не uses!!) ВОТ 2 ЗАДАЧИ!
Answers & Comments
sokolovmantrix
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.
Answers & Comments
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.