Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.
Для пк - мало, да и для других девайсов - мало, приходится все время подчищать память
для пк норм - 500гб, минимум
63 (10сс) = 64-1 =1 000 000 -1 (2сс) =111 111 (2сс)
в 8-ми разрядном формате:
0011 1111
Имеет расширение zip файла