A B
1 6 3
2 =A1+B1 =A1/B1
1 6 3
2 3 2
1 2 3
2 5 0,666667
1 2 4
2 6 0,5
Var a: byte;
begin
writeln('Введите номер месяца:');
readln(a);
case a of
1, 2, 12: writeln('Зима');
3..5: writeln('Весна');
6..8: writeln('Лето');
9..11: writeln('Осень')
else writeln('Ошибка');
end;
end.
1. 9379 из десятичной в двоичную:
10010010100011
2. 9379 из десятичной в восьмеричную:
22243
3. 9379 из десятичной в шестнадцатеричную:
24А3
Ну сначала объявляем переменные,константы юсы и т д,потом если нужно пишем процедуры и функции в конце пишем блок основной программы,заканчивающийся end.
1кбайт=1024байт
1гбайт=1024кбайт=1024*1024байт=1048576байт