Определить количество чисел кратных 5 в последовательности от 10 до 50. нужно в паскале написать. хэлпп!

👇

Ответ:

Катя132211111

18.07.2021

Var
    i, k: integer;

begin
    for i := 10 to 50 do
        if i mod 5 = 0 then
            k := k + 1;
    writeln(k);
end.

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

Ответ:

алиса808

18.07.2021

Прога в приложении

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

Открыть все ответы

Ответ:

Сашечка11

18.07.2021

Сначала немного теории.
Тут у нас импликация(если..то...), комбинированная с конъюнкцией(и).
Таблица истинности импликации(стрелочки):
0 0 1
0 1 1
1 0 0
1 1 1
Общее правило: если a<=b, тогда правда
Таблица истинности конъюнкции(/\):
0 0 0
0 1 0
1 0 0
1 1 1
Общее правило: если есть одна ложь-всё ложь
Теперь о примере:
Просто подставляем вместо x варианты. Так как между двумя скобочками с Если... То... стоит И, нам нужен вариант, где оба Если... То... являются правдой.
Рассмотрим подробно 1 вариант:
21<25 - это правда
21<23 - это правда
Таким образом, в первых скобочках правда, это доказывает таблица истинности, приведённая выше.
21<22 - это правда
21>21 - это ложь
В этих скобочках-ложь.
А так как ложь и правда в И являются ложью, нам не подходит данный вариант
2 вариант-верный ответ, т.к.:
22<25 - это правда
22<23 - это правда
В первых скобочках правда
22<22 - это ложь
22>21 - это правда
И в этих скобках правда.
Как можно убедится, снова взглянув в таблицу истинности для конъюнкции, всё выражение является правдой.
3 и 4 посмотрите сами и убедитесь что это ложь.

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

Ответ:

kuanyshqz

18.07.2021

Это ? pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses graphabc; function f(x: real): real; begin f: =sin(x)/x end; var mx,my,x,dx,y: real; x0,y0,i: integer; s: string; begin x0: =windowwidth div 2; {г*г*г·г*г«г® гєг®г®г°г¤гёг*г*гі гў г¶гґг*гіг°гґ гѕгєг°г*г*г*} y0: =windowheight div 2; {гєг®гѕгґгґгёг¶гёгґг*гіг» гїг® г®г±гїг¬ г¤г«гї гїгґг°гґгўг®г¤г* г°гґг*г«гјг*г»гµ гєг®г®г°г¤гёг*г*гі гў гѕгєг°г*г*г*г»гґ} mx: =30; my: =100; line(0,y0,windowwidth,y0); {г®г±гј г•} line(x0,windowheight,x0,0); {г®г±гј г“} {гїг®г¤гїгёг±гё г®г±гё y} line(x0-3,y0-round(my),x0+3,y0-round(my)); textout(x0-10,y0-round(my)-15,'1'); line(x0-3,y0+round(my),x0+3,y0+round(my)); textout(x0-15,y0+round(my),'-1'); {гїг®г¤г°гёг±гё г®г±гё г•} for i: =1 to 6 do {г¬г*гєг±гёг¬г*г«гјг*г®гґ гєг®г«гёг·гґг±гігўг® г§г*г±гґг·гґгє гў г®г¤г*гі г±гіг®г°г®г*гі} begin line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {г§г*г±гґг·гєгё г*г* г®г±гё г•} line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3); if i mod 2=0 then {гїг®г¤гїгёг±гё г·гґг°гґг§ 1} begin str(i div 2,s); if s='1' then s: =''; {1pi 1 г*гґ гїгёгёгґг¬} textout(x0+round(i*pi*mx/2),y0+10,s+'pi'); textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi'); end; end; {г¶гґг*гіг°} textout(x0+5,y0+10,'0'); {гїг®г¤гїгёг±гё гєг®г*г¶г®гў г®г±гґг©} textout(windowwidth-10,y0-10,'x'); textout(x0-10,10, 'y'); dx: =0.001; {гјг°г*гґгёгє} x: =-3*pi; while x< =3*pi do begin setpixel(x0+round(x*mx),y0-round(f(x)*my),clblue); {гјг°г*гґгёгє г±гёг*гёг¬} x: =x+dx; {г*г*г°г*г№гёгўг*гґг¬ гµ} end; end.

4,5(90 оценок)

Это интересно:

Здоровье

22.01.2023

Как сделать мешочек с кукурузой: всё, что нужно знать...

Питомцы-и-животные

21.04.2022

Как выращивать кроликов ради мяса или шерсти...

Хобби-и-рукоделие

07.07.2021

Как сделать светящуюся палочку: пошаговая инструкция...

Дом-и-сад