Var
m:integer;
begin
read (m);
case m of
1: write ('Февраль');
2: write ('Март');
3: write ('Апрель');
4: write ('Май');
5: write ('Июнь');
6: write ('Июль');
7: write ('Август');
8: write ('Сентябрь');
9: write ('Октябрь');
10: write ('Ноябрь');
11: write ('Декабрь');
12: write ('Январь');
end;
end.
Program Task;
Var a, b, i: Integer;
Begin
For i := 100 To 1000 Do
Begin
a := a + i;
b := b + 1;
End;
WriteLn('Результат: ', (a / b):4:2);
ReadLn;
End.
<span>М: = 2*5 + 12/ (2 + 4) - 3*2
</span><span>М: = 10 + 12/ 6 - 6
</span>М: = 10 + 2 - 6
М: = 12 - 6
М: = 6
С целыми числовыми типами данных Паскаля можно выполнять следующие операции:
Арифметические:
сложение(+);
вычитание(-);
умножение(*);
остаток от деления (mod);
возведение в степень;
унарный плюс (+);
унарный минус (-).
Операции отношения:
отношение равенства (=);
отношение неравенства (<>);
отношение меньше (<);
отношение больше (>);
отношение не меньше (>=);
отношение не больше (<=).
✓Возможное переполнение результата никак не контролируется (это важно!), что может привести к ошибкам.
Var
i:integer;
begin
i:=33300;
while (i mod 55 <> 0) do begin
i:=i+1;
end;
writeln(i,'/55=',i/55);
end.