Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..
<em>И снова - приятно, когда кратко))
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var w:=ReadAllText('in.txt'); w.Println;
var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Eng.txt',s);
s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Rus.txt',s);
end.
<u>Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)</u>
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY ГорькиЙ dog шиПоВНиК
The QuICk broWN fox JuMpS over The LAZY dog
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК
Жили-были в одном селе маленькие счетики.Такие.на которых весь день перебирали косточками и складывали числа.Одна косточка,плюс одна косточка...Как часики-тик-так.Тик-так. Шло время,счетики становились все взрослее и взрослее,а потом и вовсе состарились. Не старилось только время.Оно всё бежало вперёд и вперед. И задумались счетики над тем,что время далеко убежало,его не догнать.и счетиками почему то стали пользоываться всё меньше и меньше И стало счетикам грустно.На них уже никто не складывал косточку к косточке.Отправились счетики вслед за временем. будущее.Ах ! Что за прекрасное будушее открылось перед глазами маленьких счетиков !!!! Огромные вычислительные машины.Они смотрели на счетики как-то свысока и очень строго. А время было не догнать, оно опять убежало вперед. Побежали за ним наши счетики и очутилтись в прекрасной стране под названием "ЗДЕСЬ И СЕЙЧАС ".А в этом времени на счетики смотрели компьютеры. -Что это?- подумали счетики. -Что за странные создания ? А компьютеры ,увидев счетики,ничуть не удивились, ведь в их памяти было заложено,что счетики-это их прабабушка ! Они даже были очень довольны этой встрече,потому что благодаря маленьким счетикам стараниями многих человеческих умов компьютеры появились на свет.
5124 в двоичной= 1010000000100 (5124÷2=(полученный ответ записывается с права налево) 1010000000100₂)
23 в двоичной= 10111 (23÷2=(полученный ответ записывается с права налево) 10111₂)
14 в восьмеричной = 16 (14÷8=(полученный ответ записывается с права налево) 16₈)
327 в восьмеричной= 507 (327÷8=(полученный ответ записывается с права налево) 507₈)
3D в шестнадцатеричная = 61 (3D₁₆ = 3∙16¹+13∙16⁰ = 48+13 = 61₁₀ )
2E в шестнадцатеричная = 46 (2E₁₆ = 2∙16¹+14∙16⁰ = 32+14 = 46₁₀)
