Бусіта

10.07.2020 00:57

Информатика

Есть ответ 👍

Вpascal abc составить программу для подсчета четных цифр, используемых для записи произвольного числа x. использовать цикл с предусловием, другого не проходили !

193

284

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

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

Dataset147

Информатика

4,6(37 оценок)

Program red; var a,b: integer; begin b: =0; readln(a); if a< 10 then begin if a mod 2=0 then b: =1; end; if (a> =10) and (a< 100) then begin if ((a div 10) mod 2=0) and (a div 10 < > 0) then b: =b+1; if ((a mod 10) mod 2=0) and (a mod 10 < > 0) then b: =b+1; end; if (a> =100) and (a< 1000) then begin if ((a div 100) mod 2=0) and (a div 100 < > 0) then b: =b+1; if div 10) mod 10) mod 2=0) and ((a div 10) mod 10 < > 0) then b: =b+1; if ((a mod 10) mod 2=0) and (a mod 10< > 0) then b: =b+1; end; writeln(b); end.

dariarez

Информатика

4,8(69 оценок)

uses crt,graphABC;

var h,c,r1,r2,r3,i,x1,y1,x2,y2:integer;

u:real;

begin

repeat

write('Введите время в часах, от 0 до 24 кратное 3 h=');

readln(h);

until (h in [0..24])and(h mod 3=0);

setwindowsize(400,400);

c:=200;

r1:=c-30;

r2:=r1-40;

r3:=r1+20;

centerwindow;

clrscr;

hidecursor;

circle(c,c,r1);

//u:=pi/2-pi/6;

for i:=1 to 12 do

begin

u:=-i*pi/6+pi/2;

x1:=c+round(r1*cos(u));

y1:=c-round(r1*sin(u));

setbrushcolor(clBlack);

setbrushstyle(bsSolid);

circle(x1,y1,2);

x2:=c+round(r3*cos(u));

y2:=c-round(r3*sin(u));

u:=u-pi/6 ;

setbrushstyle(bsClear);

textout(x2-3,y2-5,inttostr(i));

end;

setpenwidth(3);

h:=h mod 24 mod 12;

u:=-h*pi/6+pi/2;

line(c,c,c+round(r2*cos(u)),c-round(r2*sin(u)));

end.

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

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

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

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

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

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

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

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

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

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