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.
ПЗОГЗФЬЬФ
Выделяем букву П. В алгоритме нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву З. В алгоритме сказано, что если курсор находится на букве З, то необходимо заменить ее на Р. Получилось:
ПРОГЗФЬЬФ
Выделяем букву О. В алгоритме нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву Г. В алгоритме также нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву З. В алгоритме сказано, что если курсор находится на букве З, то необходимо заменить ее на Р. Получилось:
ПРОГРФЬЬФ
Выделяем букву Ф. В алгоритме сказано, что если курсор находится на букве Ф, то необходимо заменить ее на А. Получилось:
ПРОГРАЬЬФ
Выделяем букву Ь. В Алгоритме сказано, что если курсор находится на букве Ь, то необходимо заменить ее на М. Получилось:
ПРОГРАМЬФ
Выделяем букву Ь. В Алгоритме сказано, что если курсор находится на букве Ь, то необходимо заменить ее на М. Получилось:
ПРОГРАММФ
Выделяем букву Ф. В алгоритме сказано, что если курсор находится на букве Ф, то необходимо заменить ее на А. Получилось:
ПРОГРАММА
Ответ: ПРОГРАММА
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
1)Windows XP\7\8\8.1\10
2)WinRar\7zip
3)Windows Defender\Kaspersky
4)Skype\RC\Teamviewer.
5)Turbo Basic\Quick Basic\Turbo Pascal\Turbo C.
6)WorldPad
7)Paint\Gimp.
8)Microsoft Power Point
9)Microsoft ExeL
10)Wiki
11)DirectX\Microsoft Visual C++
Знаком "\" отметил возможные варианты,можешь выбрать любой из приведённых.