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.
<h2><u>7. </u></h2>
program raf105;
var
num,max: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
max:= -99999;
repeat
readln(num);
if num > max then max:= num;
until num = 0;
writeln('Вывод: ',max);
end.
<h2><u>8. </u></h2>
program raf105;
var
num,min: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
min:= 99999;
repeat
readln(num);
if (num < min) and (num <> 0) then min:= num;
until num = 0;
writeln('Вывод: ',min);
end.
<h2><u>9. </u></h2>
program raf105;
var
num,count,max: integer;
begin
write('Введите количество чисел: ');
readln(count);
writeln('Вводите числа по очереди');
max:= -99999;
for var i:=1 to count do
begin
readln(num);
if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;
end;
if max <> -99999 then writeln('Вывод: ',max)
else writeln('Таких чисел нет.');
end.
<h2><u> </u></h2><h3>PascalABC</h3>
F(11) = F(10) + F(9) = F(9) + F(8) + F(8) + F(7) = F(8) + F(7) + F(8) + F(8) + F(7) = 3F(8) + 2F(7)
7 = 3F(8) + 4 => F(8) = 1.
F(8) = F(7) + F(6) <=> F(6) = F(8) - F(7) = 1 - 2 = -1.
F(7) = F(6) + F(5) <=> F(5) = F(7) - F(6) = 2 - (-1) = 3.
F(6) = F(5) + F(4) <=> F(4) = F(6) - F(5) = -1 - 3 = -4.
F(5) = F(4) + F(3) <=> F(3) = F(5) - F(4) = 3 - (-4) = 7.
<span>C:\, school, <span>physics, school, math, notes.</span></span>
Ответ:
3,частично 1
Объяснение:
Ибо структура у всех записей одна и та же