Program z1;
var s:string;
var i,n,f:integer;
var ch:char;
begin
writeln('Введите строку');
readln(s);
f:=0;
n:=length(s);
ch:=s[n];
for i:=1 to n do
if(s[i]=ch) then
f:=f+1;
if(f<>0) then
writeln('yes')
else writeln('no');
end.
На локальном диске (:С) или на флешке ,или на диске.
Во внешней папяти
Ответ находится во вложении
1101111 (в 2с/с) = 64+32+8+4+2+1=111 (в 10с/с)
111 (в 2с/с) = 4+2+1 = 7 (в 10 с/с)
Ответ: 7
===== PascalABC.NET =====
begin
var a := 1.7 * (4.9 - 7.23 / 4.8) + 3.4;
var b := 1.2314 + 8.85 ** 5;
var c := 0.00354 / (347 + 526.71) * 0.21;
PrintLn(a, b, c)
end.
Результаты:
9.169375 54290.7953553125 8.50854402490529E-07