Var a,s,s1:Integer; begin Write('Введите число, которое должна превысить сумма чисел (s): '); ReadLn(s); while s1<=s do begin Write('Введите число: '); ReadLn(a); s1:=s1+a end; WriteLn('Сумма введенных чисел: ',s1) end.
Var m : array[0..6] of Integer; i,k,N : Integer; Begin For i:=0 to 6 do m[i]:=0; Readln(N); k:=6; While N>0 do Begin If N>=Power(2,k) then Begin N:=N-Trunc(Power(2,k)); Inc(m[k]); end else Dec(k); end; For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.'); end.
Еще вариант: Const NN = 7; money : array[1..7] of Integer = (1,2,4,8,16,32,64); Var m : array[1..NN] of Integer; i,k,N : Integer; Begin For i:=1 to NN do m[i]:=0; Readln(N); k:=NN; While N>0 do Begin If N>=money[k] then Begin N:=N-money[k]; Inc(m[k]); end else Dec(k); end; For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.'); end.
int main() { setlocale(LC_ALL, "Russian"); int N, y, i; bool Prime; cout << "Введите число: "; cin >> N; do { Prime = true; y = N % 10; for (i = 2; i <= (sqrt(abs(y))); i++) { if (y % i == 0) { Prime = false; break; } } if ((Prime) & (y != 0) & (y != 1)) cout << y << " - простое" << endl; else cout << y << " - не простое" << endl; N = N / 10; } while (N != 0); system("pause"); return 0; }
begin
Write('Введите число, которое должна превысить сумма чисел (s): ');
ReadLn(s);
while s1<=s do
begin
Write('Введите число: ');
ReadLn(a);
s1:=s1+a
end;
WriteLn('Сумма введенных чисел: ',s1)
end.