Правильный ответ:
Вышивание
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var c := ReadlnString('Введите дату в формате чч.мм.гг:');
var d: DateTime;
if DateTime.TryParse(c, d) then
begin
d := d.AddDays(-1);
$'{d:dd.MM.yy}'.Println
end
else Println('Вы ошиблись при вводе')
end.
Ответ:
6 байт
Объяснение:
каждая буква кодируется 8 битами=1 байту, значит
слово волк = 4 байта + 1 байт (на запятую) + 1 байт (на пробел) = 6 байт
Var
s, r, k:real;
ans:integer;
begin
Read(s,r);
k:= s; ans:= 0;
While (k < 2 * s) do begin
ans:= ans + 1;
k:= k + k * (r/100);
end;
Writeln(ans);
end.
<span><u>Примеры:</u>
</span>````````````````````
100 20
4
````````````````````
100 100
1