Алг Число
нач
цел n, k
вывод "Введите целое число", нс
ввод n
k:=0
нц пока n>0
если mod(n,10)=9 то
k:=k+1
все
n:=div(n,10)
кц
если k=2 то
вывод "Да."
иначе
вывод "Нет."
кон
1842₁₀ = 5241₇
1842/7= 263 ост. 1
263/7=37 ост. 4
37/7=5 ост. 2
5
Var a,b,c:real;
begin
read (a,b,c);
if (a<>b) and (a<>c) and (b<>c) then writeln ('НЕТ') else
if (a=b) and (a=c) and (b=c) then writeln ('ВСЕ РАВНЫ') else
writeln ('ДА');
end.
дано:
v=2¹⁰*10³бит/сек(скорость)
t=16сек(время)
s=?(обьем файла)
s=2¹⁰*2³*5³*2⁴/2¹³=5³*2⁴=16*125=2000кб
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся