кажлор - это зашифрованное слова ложка
Ответ:
Объяснение:
Var a,b,x,k,j : Integer;
Begin
Read (a);
Read(b);
Read(x);
While x<>0 do
Begin
If x mod 10=a then k:=k+1;
If x mod 10=b then j:=j+1;
X:=x div 10;
End;
If k=j then WriteLn('одинаковое количество ');
If k>j then WriteLn(символов а больше)
Else
WriteLn (символов b больше)
Правильным ответом является 5)
См. пример в приложении
Используя формулы из логики, упростим данное выражение (в частности формула замена импликации=> для переменных А и В А=>B = (не)А V В
Затем подставляем входные данные
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
Writeln(100*Frac(x)+Trunc(x)/100:0:2)
end.
<u>Примеры</u>
16.59
59.16
32.47
47.32