Как написать задачу в Паскале?
5-9 класс
|
Дано целое трехзначное число N.
Верно ли, что в нем есть хотя бы одна цифра 7?
var
n: integer;
begin
readln(n);
if (n mod 10 = 7) or (n div 100 = 7) or ((n div 10) mod 10 = 7) then writeln(true)
else writeln(false);
end.
program new
var
begin
for i =10 to 1000 do
begin
if x mod i = 7 then
written('yeah')
end;
i:=i*10
end;
end.
Другие вопросы из категории
компьютере( то есть проверить будет ли работать программа)
использоваться для выполнения указанных ниже действий?
Читайте также
котенка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будут хранится значения веса котенка в течение мая.3)На основе этих заданий надо составить фрагмент программы на Паскале ввода исходных данных для массивов.
купить на эти деньги?"
напишите пожалуйста как составить это в паскале) буду благодарна:)
каждого года XX века?
2)Вы приобрели котёнка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будет храниться значения веса котёнка в течение месяца (например,мая)?
Определить что больше по модулю:сумма отрицательных чисел массива или отрицательных.