Решите задачки и составьте к ним блок схемы, пожалуйста. Язык -
Решите задачки и составьте к ним блок схемы, пожалуйста. Язык - PascalABC
1. Дана последовательность из N чисел. Вычислить сумму частей, кратных 6 и заканчивающихся на 4. Предусмотреть вывод на печать "нет", если удовлетворяющие условию числа в последовательности отсутствуют.
2. Дана последовательность чисел, заканчивающихся на 0. Вычислить величайший положительный элемент, кратных 3. Предугадать вывод на печать "нет", если удовлетворяющие условию числа в последовательности отсутствуют.
1 ответ
Дмитрий Шароватый
***1-ая Задачка***
var a:array [1..100]of integer;
n,i,fl,sum,len:integer;
s : string;
begin
writeln('Введите n') ;
readln(n);
for i:=1 to n do
readln(a[i]);
sum:=0;
fl:=0;
for i:=1 to n do
begin
str(a[i], s);
len:=length(S);
if ((a[i]mod 6=0)and(s[len]='4')) then
begin
sum:=sum+a[i];
fl:=1;
end;
end;
if (fl=1)then writeln('сумма=',sum);
if(fl=0) then writeln('нет');
end.
****Тестовый ввод ****
5
24
1
1
24
3
****
Вывод
сумма = 48
*****
2-ая. Пометка !!! ввод нуля останавливает программку
(исходя из условия заканчивающихся на 0)
********
var i,max,fl: integer;
begin
i:=1;
max:=0;
fl:=0;
while(ilt;gt;0) do
begin
readln(i);
if((i mod 3=0)and(igt;max)) then
begin
max:=i;
fl:=1;
end;
end;
if (fl=1) then writeln('Максимальный =',max);
if (fl=0) then writeln('нет');
end.
****Тестовый ввод ****
3
4
9
8
6
0
****
Вывод
максимальный = 9
var a:array [1..100]of integer;
n,i,fl,sum,len:integer;
s : string;
begin
writeln('Введите n') ;
readln(n);
for i:=1 to n do
readln(a[i]);
sum:=0;
fl:=0;
for i:=1 to n do
begin
str(a[i], s);
len:=length(S);
if ((a[i]mod 6=0)and(s[len]='4')) then
begin
sum:=sum+a[i];
fl:=1;
end;
end;
if (fl=1)then writeln('сумма=',sum);
if(fl=0) then writeln('нет');
end.
****Тестовый ввод ****
5
24
1
1
24
3
****
Вывод
сумма = 48
*****
2-ая. Пометка !!! ввод нуля останавливает программку
(исходя из условия заканчивающихся на 0)
********
var i,max,fl: integer;
begin
i:=1;
max:=0;
fl:=0;
while(ilt;gt;0) do
begin
readln(i);
if((i mod 3=0)and(igt;max)) then
begin
max:=i;
fl:=1;
end;
end;
if (fl=1) then writeln('Максимальный =',max);
if (fl=0) then writeln('нет');
end.
****Тестовый ввод ****
3
4
9
8
6
0
****
Вывод
максимальный = 9
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов