1. написать программу вычисления стоимости некоторого количества яблок( на языке pascal) 2. написать программу, которая преобразует введённое с клавиатуры дробное число в денежный формат ( pascal )
200000, насколько я понял.Если вы дочитаете это - респект.%)
При первом запуске условие не выполниться, поэтому переменная ans останется прежней( в таком случае нам безразлично значение единиц числа n, и мы ставим наименьшее - 0), в этом же цикле от числа n убираются единицы и к переменная i увеличивается на 1. Цикл начинается по новой, теперь условие выполняется( i делится на 2 с остатком 1), но также на два должны без остатка делится и десятки числа n(опять берем наименьшее число 0) переменная ans увеличивается на 1. В следующем цикле условие опять не выполняется, i увеличивается на 1, от n убираются сотни(сотни числа n равны 0) В четвертом цикле asn и i увеличиваются на 1, тысячи числа n опять же равны 0. В 5-ом цикле условие не выполняется, i увеличивается на 1, десятки тысяч числа n равны 0. И наконец в шестом цикле переменная asn увеличится на 1, но при том условии,что сотни тысяч числа n делятся на 2 без остатка - ноль здесь уже не подходит, поскольку число не может начинаться с нуля. Берем 2.
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018 Внимание! Если программа не работает, обновите версию!
begin var s1:=ReadlnString('Строка-1:'); var s2:=ReadlnString('Строка-2:'); Writeln($'Длина 1-й строки {s1.Length}, второй строки {s2.Length}'); s1:=s1.Replace('а','о'); Writeln('Строка-1: ',s1); s2:=s2.Replace('К','л'); Writeln('Строка-2: ',s2) end.
Пример Строка-1: А роза упала на лапу Азора Строка-2: Карл у Клары украл кораллы Длина 1-й строки 26, второй строки 26 Строка-1: А розо уполо но лопу Азоро Строка-2: ларл у ллары украл кораллы
