4 задачи: ввести натуральное число и определить, верно ли, что ...
4 задачи:
ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)////
ввести натуральное число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
Есть ответ
18.12.2022
473
Ответ
а я разве их не решал????????
но ладнооо
1)
Program Pr1;uses crt;var stroka:string; i,k,x:integer; mas:array[byte] of integer;Beginclrscr;readln(stroka);
i:=1;repeat
val(stroka[i],k,x); mas[i]:=k;i:=i+1;
until i=length(stroka);x:=0;for i:=1 to length(stroka) do x:=x+mas[i];if x=10 then writeln('TRUE')else writeln('ELSE');end.
2 я не знаю как решать
3)
Program Pr1;uses crt;var stroka:string;i,k,x:integer;mas:array[byte] of integer;beginclrscr;readln(stroka);i:=1;while i
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022
