Дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите сумму всех чётных чисел, кратных 3.
program z1;
var
ch,s: integer;
begin
writeln('введите последовательность натуральных чисел, оканчивающихся 0);
readln(ch);
s: =0;
while ch< > 0 do
begin
if not(odd(ch)) and (ch mod 3=0)then s: =s-ch:
readln (ch) ;
end;
writeln (' s='s) ;
end
2.дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите минимальное число этой последовательности, исключая последний ноль.
var
min ch: integer ;
begin
writeln (' введите последовательность натуральных чисел, оканчивающихся 0'; )
readln (ch)
min: =ch ;
while ch< > 0 do
begin
if (ch0)then min : =ch :
readln (ch) ;
end;
writeln ('min =', min) ;
end
.
1. дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите количество всех нечётных чисел, оканчивающихся цифрой 3.
2. дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите максимальное число этой последовательности.
247
368
Ответы на вопрос:
//пришло время писать низкокачественный код //низкокачественный код сам себя не напишет! //pascal abc.net версия 2.2 сборка 790 var ar: array of array of integer; m,n,i,k,j: integer; begin; j: =1; readln(n); readln(m); setlength(ar,n+1); for i: =1 to n do setlength(ar[i],m+1); writeln('matrix: '); for i: =1 to m*n do begin; inc(k); ar[j,k]: =j*k; write(ar[j,k],' '); if k=m then begin; k: =0; inc(j); writeln; end; end; end. пример ввода: 3 8 пример вывода: matrix: 1 2 3 4 5 6 7 8 2 4 6 8 10 12 14 16 3 6 9 12 15 18 21 24
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Vita196820.12.2020 07:46
-
930515302.05.2023 16:00
-
69Maxsim9609.04.2023 07:07
-
frhjkvg1121.05.2022 03:45
-
ariananasirova03.06.2023 09:58
-
Soto35003.02.2023 12:26
-
serpgo22.06.2020 18:22
-
3110196028.09.2022 16:57
-
Ira01928.01.2021 13:33
-
linagaribyan10.12.2022 15:00
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.