Банку требуется сообщить вкладчику, что его процент дохода при вкладе 300 000 тенге составит 12,5% в год, а при сумме 450 000 тенге и выше составит 15,2% в год. Запишите конструкцию IF(если) для обработки условия данной задачи.
var x, y, z: integer; begin writeln('-1 - конец ввода и вывод суммы'); repeat readln(y);
if (y < -1) then writeln('Эм... Не, не съем: отрицательная цЫфра.') else if (y >= 0) then z := z + y else if (y = -1) then if (z >= 100) then break else writeln('Не, не годится, прибавь ещё чуток, до сотни не дотягивает');
if (z > 1000) then begin writeln('Всё, перевес. Сумма чисел больше 1000.'); exit; end;
until (false); writeln('Сумма примерно равна (если округлить) ', round(z / 10) * 10); end.
Скриншот всего экрана делается путем нажатия на клавишу PrtSc. Если нужен скриншот только активного окна, то комбинацией клавиш Alt+PrtSc. После этого изображение попадает в буфер обмена. Надо не забывать, что запуск некоторых приложений очищает буфер обмена; на эту удочку не раз попадались любители вставлять скриншоты в Word, поэтому лучше заблаговременно запустить программу, в которой планируется обрабатывать скриншот, свернуть её и потом делать нужный скриншот. Проще всего скриншот обработать в программе Paint, входящей в состав Windows. Сделав скриншот, заходим в Paint и из меню выбираем "Файл" - "Создать". Будет создан некоторый "холст" с размерами по умолчанию. У меня размер по умолчанию стотит 50х50 пикселей. Чтобы его задать, надо в меню выбрать "Рисунок" - "Атрибуты", выставить ширину и высоту по 50, единицы измерения - точки, палитра цветная. Потом нажать "По умолчанию", выйти из Paint и снова зайти. А можно, заходя в Paint, ставить тот размер, какой надо, и нажимать ОК. Итак, создали маленький пустой холст. Нажимает Ctrl+V - это команда вставки изображения из буфера. Paint поймет, что картинка на хост не помещается и предложит расширить холст. Соглашаемся и вот уже картинка в редакторе. Почему лучше так, а не заранее создавать холст нужного размера? Во-первых, лень запоминать, сколько надо точек выставлять. Во-вторых, при любой вставке холст автоматически подгоняется под размер картинки. Теперь можно редактировать картинку, периодически сохраняя её, чтобы не потерять при ошибках. По окончании редактирования выбираем "Файл" - "Поместить в центр рабочего стола". Если разрешение экрана не менялось после скриншота, картинка встанет точно по размеру.
x, y, z: integer;
begin
writeln('-1 - конец ввода и вывод суммы');
repeat
readln(y);
if (y < -1) then
writeln('Эм... Не, не съем: отрицательная цЫфра.')
else
if (y >= 0) then
z := z + y
else
if (y = -1) then
if (z >= 100) then
break
else
writeln('Не, не годится, прибавь ещё чуток, до сотни не дотягивает');
if (z > 1000) then
begin
writeln('Всё, перевес. Сумма чисел больше 1000.');
exit;
end;
until (false);
writeln('Сумма примерно равна (если округлить) ', round(z / 10) * 10);
end.