Var money:integer;
min:real;
s:string;
begin
write('Стоимость одной минуты разговора = ');
readln(money);
write('Длительность разговора = ');
readln(min);
write('Какой сегодня день? ');
readln(s);
if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.
4 нуля находятся в твоём десятичном числе 172,25
Для 16 (2^4)
640*480*4=1228800 бит=153600 байт
512*1024=524288 байт
524288 /153600=3
Для 256 (2^8)
640*480*8=2457600 бит=307200 байт
512*1024=524288 байт
524288 /307200=1
<span>Код - (франц . code), совокупность знаков (символов) и система определенных правил, при помощи которых информация может быть представлена (закодирована) в виде набора из таких символов для передачи, обработки и хранения (запоминания). Конечная последовательность кодовых знаков называется словом. Наиболее часто для кодирования информации используют буквы, цифры, числа, знаки [ напр., "-" (тире), "." (точка)] и их комбинации. Применяют в телеграфии, вычислительной технике, военном деле и др.</span>
Если на паскале сойдет, то лови...
Если от 11 и до 15, значит возраст должен быть >= 11, но <= 15 (больше или равно, меньше или равно), это можно сделать с помощью оператора in, допустим age будет равен 13, тогда пишем так if (age in [от..до]). И дальше можем что нибудь делать с этим. Вот код:
begin
var age: integer; //Создаем переменную для хранения возраста
readln(age); //Читаем возраст
if (age in [11..15]) then writeln('Подросток') else writeln('Не подросток');//Подробнее опишу
end.
Допустим:
Ввод: 13;
Вывод: 'Подросток'
---------------------------------
Ввод: 18
Вывод: 'Не подросток'
И так далее...
--------------------------------
Если не трудно
нажми "Спасибо" ;)