ДАНЫ ФРАГМЕТНЫ ПРОГРАММ.
Допишите в предложенных фрагментах недостающие строки (опирайтесь на программу в задании №2(оно на фото), замените в ней второй блок с циклом на фрагмент предложенный ниже. БЛОК ВВОДА данных оставляйте таким же).
1. Найти сумму элемента кратных заданному числу.
Решение
Будем суммировать не все элементы, а только те, которые удовлетворяют данному условию, то есть только те, которые делятся нацело на заданное число (остаток равен 0).
For i:=1 to n Do {нахождение суммы}
If m[i] Mod k=0 Then s := s + m[i]; {если элемент кратен k,то прибавляем его к сумме}
End;
Выведите результат (в операторе writeln используйте переменную s)
1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.
var
i: integer;
s: string;
begin
i := 1;
while i <= 5 do
begin
readln(s);
if s = 'zn4n1j4' then
begin
writeln('Вход в систему разрешен');
exit;
end;
writeln('Неверный пароль.');
end;
writeln('Пароль не был угадан 5 раз.');
end.
2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.
var
x, ans: integer;
begin
read(x);
ans := 0;
while x <> 0 do
begin
ans := ans + (x mod 10);
x := x div 10;
end;
writeln(ans);
end.
1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.
var
i: integer;
s: string;
begin
i := 1;
while i <= 5 do
begin
readln(s);
if s = 'zn4n1j4' then
begin
writeln('Вход в систему разрешен');
exit;
end;
writeln('Неверный пароль.');
end;
writeln('Пароль не был угадан 5 раз.');
end.
2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.
var
x, ans: integer;
begin
read(x);
ans := 0;
while x <> 0 do
begin
ans := ans + (x mod 10);
x := x div 10;
end;
writeln(ans);
end.