Текст как следует закодировали, сжали и защитили от помех... ты же должен вернуть его к жизни...
100101010001100 011000001100101 011000111100011 010101010011001 000011000111010 001110011000100 001101001010011 111001011100100 110111001010101 000001101010110 010010010110010 001110011110101 011000110001101 000110100100101 110110101001000 101010110101010 110111110101100 011000001100101 001100100101001 000001000100100 001101011110010 111001011100100 000111010101100 101011001011001 100000101001011 000001101010110 010010000110101 110100100011101 000011010101011 110010110101001 011110110110010 100001110010010 110101110101100 011000001100001 011000011101011 000101010011001 000011000011010 001110011000110 010101001010011 111001000100100 101100110010100 001110011110101 101100100001110 111001100011101 100011010100011 100001011100110 110110101001000 101000110101010 110111110101000 011000001100101 011000111111011 010101010010001 001011000111010 001110011000110 000110001001110 011001100010001 101100100110011 011001011100100 000001010101100 011011011001101 010101010110101 100011100011101 000111010100011 100001011100011 110110101001000 111111001011001 011110110110010 100001100101010 111000111101011 110101110011010 111101001001110 011101100011001 001100100110011 111001011100100 110011011010101 000001101010110 110010010110010 001110011110111 101110100001100 111101000011101 100000000100100 101010100101110 110111110101100 011000001101101 011100111101011 010111010011001 000011000111010 001110011100110 011101001010011 111001011100100 110011001110101 000001101010110 110010010110010 001110010110101 101100100001110 111101100011101 000011010100111 000001011100111 110110101001100 011010110100000
begin
writeln('Вычисление стоимости телефонного разговора');
writeln('Введите исходные данные');
writeln('Стоимость минуты разговора, руб. ');
readln(Sm);
writeln('Длительность разговора (целое количество минут) ');
readln(M);
writeln('День недели (1-понедельник, ... 7-воскресенье) ');
readln(Day);
S:=Sm*M;
if (Day=6)or(Day=7)
then writeln('Стоимость разговора с учетом скидки = ',S*0.8,' руб')
else writeln('Стоимость разговора = ',S,' руб');
end.
Пример:
Вычисление стоимости телефонного разговора
Введите исходные данные
Стоимость минуты разговора, руб.
1
Длительность разговора (целое количество минут)
6
День недели (1-понедельник, ... 7-воскресенье)
7
Стоимость разговора с учетом скидки = 4.8 руб
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Вычисление стоимости телефонного разговора');
Writeln('Введите исходные данные');
var Sm:=ReadReal('Стоимость минуты разговора, руб.');
var M:=ReadInteger('Длительность разговора (целое количество минут)');
var Day:=ReadInteger('День недели (1-понедельник, ... 7-воскресенье)');
var S:=Sm*M*(Day in [1..5]?1.0:0.8);
Writeln('Стоимость разговора, руб ',s:0:2)
end.
Пример
Вычисление стоимости телефонного разговора
Введите исходные данные
Стоимость минуты разговора, руб. 1
Длительность разговора (целое количество минут) 6
День недели (1-понедельник, ... 7-воскресенье) 7
Стоимость разговора, руб 4.80