Программа Вот: Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами
<script type="text/javascript"> var ans=prompt('Name a vegetable that is green on the outside and white on the inside. It starts with C.','answer'); if(ans=='Cucumber') alert('Congratulations, answer is right!'); else alert('Wrong answer'); alert('Game over'); </script>
//2 <script type="text/javascript"> var count=0; var ans=prompt('Name a vegetable that is green on the outside and white on the inside. It starts with C.','answer'); if(ans=='Cucumber') count=count+1; ans=prompt('Name a tiny, round green vegetable that grows in pods. It starts with P. Children like it.','answer'); if(ans=='Peas') count=count+1; ans=prompt('What goes up when the rain comes down?','answer'); if(ans=='Umbrella') count=count+1; ans=prompt('I am purple, yellow, red,/and green./The King cannot reach me and neither can the Queen./I show my colours after the rain,/And only when the sun comes out again.','answer'); if(ans=='Rainbow') count=count+1; alert('Count of right answers:'+count); alert('Game over'); </script>
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End.
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами
<script type="text/javascript">
var ans=prompt('Name a vegetable that is green on the outside and white on the inside. It starts with C.','answer');
if(ans=='Cucumber')
alert('Congratulations, answer is right!');
else
alert('Wrong answer');
alert('Game over');
</script>
//2
<script type="text/javascript">
var count=0;
var ans=prompt('Name a vegetable that is green on the outside and white on the inside. It starts with C.','answer');
if(ans=='Cucumber')
count=count+1;
ans=prompt('Name a tiny, round green vegetable that grows in pods. It starts with P. Children like it.','answer');
if(ans=='Peas')
count=count+1;
ans=prompt('What goes up when the rain comes down?','answer');
if(ans=='Umbrella')
count=count+1;
ans=prompt('I am purple, yellow, red,/and green./The King cannot reach me and neither can the Queen./I show my colours after the rain,/And only when the sun comes out again.','answer');
if(ans=='Rainbow')
count=count+1;
alert('Count of right answers:'+count);
alert('Game over');
</script>