var a,b,c,d:integer;
begin
writeln('Напиши дату основания Санкт-Питербурга(день месяц и год)');
writeln('день');
read(a);
writeln('месяц');
read(b);
writeln('год');
read(c);
if (a=27) and (b=5) and (c=1703) then
writeln('Молодец всё правильно')
else
writeln('Ты где то допустил ошибку');
end.
0,2(10)=0,00110011(2)=0,1463(8)=0,3333333(16)
0,35(10)=0,01011010(2)=0,2631(8)=0,59999(16)
Нужно умножать на основание системы
Repeat
<тело цикла>
until <условие>
это в паскале
Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу. Легкая программа, но замудренная..
Пример:
case a of
01.02.98 : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');
02.02.98 : writeln (2 февраля тысяча девятьсот девяносто восьмой год');
Тут дата : writeln ('Тут что выводить');
итд
end;