Я не знаю, как тебе это расписать здесь. Подсказка: посторой таблицу истиности, по ней поймёшь всё.
Var mes, sum: real;
begin
mes:=0;
sum:=1000;
while sum<1100 do<span> begin
</span>sum:=sum+(sum*0.05);
mes:=mes+1;
<span> end;
</span>writeln (mes:2:0);
readln;
end.
<span>Программа работает корректно. Выводит 2</span>
Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>
#include<iostream>
using namespace std;
int main()
{
int A,B,C = 0;
cin >> A >> B;
while(A > 1)
{
if (A % 2 != 0) C+=B;
B*=2;
A/=2;
}
cout << (C+=B);
return 0;
}
var a,b,c:integer;
begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
end.