1. дано натуральное число. определить является ли произведение его цифр кратным числу a 2. известны данные о количестве осадков, выпавших за каждый день марта. верно ли, что осадков не было 10 дней в месяц?

227

242

Посмотреть ответы 2

Ответы на вопрос:

dikinova2017ozio8q

Информатика

4,4(86 оценок)

uses crt; var ch,a: integer; begin readln(ch); readln(a); if ((ch div 10)+( ch mod 10)) mod a = 0 then writeln('yes') else writeln('no');

readln;

end.

uses crt; var i,os: integer; a: array[1..31] of integer; beginrandomize; os: =0; for i: =1 to 31 dobegina[i]: =random(5)+0; if a[i]=0 then inc(os); end; for i: =1 to 31 dowrite(a[i],' '); writeln; if os = 10 thenwriteln('yes') else writeln('no');

readln;

end.

очароваш

Информатика

4,7(22 оценок)

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! №1 begin var n: =readinteger('n='); var s: =n mod 10; n: =n div 10; var d: integer; while n> 0 do (d,n): =(n mod 10,n div 10); s+=d; writeln('сумма ',s); if s> 10 then writeln('верно') else writeln('неверно') end. №2 begin var s: =readinteger('n=').tostring; var n: =s.length; (s[1],s[n]): =(s[n],s[1]); s.println; if s[n].todigit.iseven then writeln('верно') else writeln('неверно') end. №3 begin var n: =readinteger('n='); var p: =1; while n> 0 do begin var d: =n mod 10; if d.isodd then p*=d; n: =n div 10 end; writeln('произведение ',p); if p.inrange(100,999) then writeln('верно') else writeln('неверно') end. №4 begin var n: =readinteger('n='); var k: =0; while n> 0 do begin if n mod 10=5 then k+=1; n: =n div 10 end; if k=3 then writeln('верно') else writeln('неверно') end. №5 begin var n: =readinteger('n='); var k: =1; writeln('делители: '); for var i: =1 to n div 2 do if n mod i=0 then begin print(i); k+=1 end; writeln(n); if k.iseven then writeln('верно') else writeln('неверно') end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.