Var a,b,c:integer;
begin
write('a = '); readln(a);
b:=a mod 10;
c:=a;
while c>9 do c:=c div 10;
if (a>9)
then if b=c
then writeln('Число начинается и заканчивается цифрой ',c)
else writeln('Первая и последняя цифры не совпадают')
else writeln('Число < 10');
end.
Пример:
a = 65478
Первая и последняя цифры не совпадают
Ответ:
<h2>
<em>2</em><em>0</em><em>0</em><em>0</em><em> </em><em>Кбайт</em></h2>
Объяснение:
<h3> Переведем минуты в секунды :2 мин = 120 с </h3>
<h3>5000 Кбайт — 2 мин </h3>
<h3>Х кбайт — 48 с </h3>
<h3>Х = 5000 * 48 / 120 = 2000 Кбайт</h3>
<h3>~•~•~•ZLOY_TIGROVSKIY~•~•~•</h3>
Написать программу, которая выводит на экран сумму
ряда
<span>
пусть a – числитель;</span><span>b – знаменатель;</span><span>da и db – шаг для
числителя и знаменателя;</span><span>n - для смены знака; </span><span> </span>
Программа:
const
<span>da= -18; {927-945}</span>
<span>db=
24; {33-9}
</span>
var
a,b,n:
integer;
s:
real;
begin
s:=0;
n:=1; a:=945;b:=9;
<span>
while a>=27 do</span><span>
begin</span><span><span>
s:=s+a/b*n; {</span>подсчет суммы}</span><span>
a:=a+da;</span><span>
b:=b+db;</span><span><span>
n:= -1*n; {</span>изменение знака}</span><span>
end;</span>
writeln('s=',s:4:2);
<span>end.</span>
1*2^7+0*2^6+1*2^5+1*2^4+1*2^3+0*2^2+0*2^1+1*2^0=128+32+16+8+1=185
Прикрепил ниже в файле TXT код программы
За блок-схемой напиши в личку