Var
i,a:integer;
ch:set of char;
n:string;
Begin
Write('Введите число ');
Readln(n);
ch:=['0'..'9'];
for i:= 1 to length(n) do
if n[i] in ch then a:=a+1;
case a of
1:Write('В числе ',a,' цифра');
2..4:Write('В числе ',a,' цифры')
else Write('В числе ',a,' цифр');
End;
<span>End. </span>
Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
5+7=12
5 у первого
7 у второго
задача стара как мир
===== PascalABC.NET =====
begin
var F: real-> real := n -> Sqrt(n) + n;
F(ReadReal('n =')).Println
end.
Кокое слово можно составить из всех этих перечислиных букв-з,я,р,ц,е,п,т,е,н,а,и
Максим1236478 [21]
Из данных букв можно составить следующие слова: заяц, птица, заря, пятница, пена, цена, рецепт, ранец, тина, центр, патерн.
А полное слово: Презентация!