Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: integer;
begin
writeln ('vvedite nomer mesuaca');
read (a);
if (a=1) then writeln ('30');
if (a=2) then writeln ('28');
if (a=3) then writeln ('30');
if (a=4) then writeln ('31');
if (a=5) then writeln ('30');
if (a=6) then writeln ('31');
if (a=7) then writeln ('30');
if (a=8) then writeln ('31');
if (a=9) then writeln ('30');
if (a=10) then writeln ('31');
if (a=11) then writeln ('30');
if (a=12) then writeln ('31');
end.
1) найти убыль как к-во * 12%
2) найти прирост как к-во * 20%
3) к-во = к-во-убыль+прирост
выполнить 8 раз
var
x,a,b: real;
i: integer;
x: =100000;
for i: =1 to 8 do
a: =x*0.12;
b: =x*0.20;
x: =x+b-a;
end;
writeln(x);
var kol,a,b,c: longint;
read(a,b,c);
if a< 0 then kol: =kol+1;
if b< 0 then kol: =kol+1;
if c< 0 then kol: =kol+1;
write(kol);
25 декабря 1951 году был создан первый отечественный комп
Популярные вопросы