Найдите и выведите на экран все двузначные числа, сумма которых не меняется при умножение на два.
5-9 класс
|
Нужно написать программку в паскале.
Решение:
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
uses CRT;
var
STR1, STR2 : String;
OK : boolean;
i, ii : Integer;
begin
Write('1): ');
ReadLn(STR1);
Wrute('2): ');
ReadLn(STR2);
for i:=1 to Length(STR2) do begin
OK:=false;
for ii:=1 to Length(STR1) do begin
if (STR2[i] = STR1[ii]) then begin OK:=true; break; end;
end;
if (OK = false) then break;
end;
if (OK = false) then begin WriteLn('NO'); end
else begin WriteLn('YES'); end;
end.
Другие вопросы из категории
яблоки.
Сколько килограммов яблок продали в третий день?
а) находит элементы с нулевыми значениями;
б) находит индексы четных элементов;
в) подсчитывает кол-во отрицательных элементов;
г) Определяет, есть ли в этом массиве хотя бы одно число, кратное трем;
д) находит в этом массивеиндексы элементов, значения которых кратны трем;
Помогите, пожалуйста
Читайте также
Заранее большое спасибо)
1) Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11.
2) Найдите и выведите на экран все двузначные числа, у которых при умножения на 2 сумма цифр увеличивается на 5.
1 задание: Составьте программу вычисления количества двухзначных чисел,которые кратны 2 и 3.
2 задание: Составьте программу,выводящую на экран все двузначные числа,у которых первая цифра в два раза больше второй.
3 задание: Найдите количество двузначных чисел,которые делятся на сумму своих цифр.
P.S. Помогите пожалуйста! Очень нужно и срочно! Если можете,то нужно всё сделать; если же нет,то хотя-бы одну или две задачи. Заранее спасибо!!!)))