М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
oksanaidima
oksanaidima
05.03.2020 01:59 •  Информатика

Найдите натуральные числа, не превосходящие n, которые делятся на каждую из своих цифр.

👇
Ответ:
макс10106
макс10106
05.03.2020
Var
    n, i, a, k:
 integer;
    f: boolean;
begin
    readln(n);
    for i := 1 to n do
        begin
        a := i;
        f := true;
        while a > 0 do
            begin
            k := a mod 10;
            a := a div 10;
            if (k = 0) or (i mod k <> 0) then //если в числе есть 0, то считать что на 0 не делится, иначе замените = на <>
                f := False;
            end;
        if f then
               write(i, ' ');
        end;
end.
4,8(42 оценок)
Открыть все ответы
Ответ:
DikONd
DikONd
05.03.2020
var 
a, b: integer;

begin 
write('Введите a: ');   
readln(a);   
write('Введите b: '); 
readln(b); 
var x := Range(a, b); 
writeln('Последовательность: '); 
x.Println; 
writeln('Ср. ариф. неотриц чисел: '); 
writeln(x.Where(x -> x >= 0).Average);
end.


var  a, b,i,s: integer;  k: real;

begin  
write('Введите a: ');    
readln(a);    
write('Введите b: ');  
readln(b); 
writeln('Последовательность: ');  
for i:=a to b do  write(i,' ');
writeln();
s:=0;
for i:=a to b do    
if i>=0 then begin   
s:=s+i;   
k:=k+1;
end;
writeln('Ср. ариф. неотриц чисел: '); 
write(s/k);
end.
4,5(50 оценок)
Ответ:
valenok18XD
valenok18XD
05.03.2020

QPython+SL4A:

import android

import time

import sys, select, os #for loop exit

#Initiate android-module

droid = android.Android()

#notify me

droid.makeToast("fetching GPS data")

print("start gps-sensor...")

droid.startLocating()

while True:

   #exit loop hook

   if sys.stdin in select.select([sys.stdin], [], [], 0)[0]:

       line = input()

       print("exit endless loop...")

       break

   #wait for location-event

   event = droid.eventWaitFor('location',10000).result

   if event['name'] == "location":

       try:

           #try to get gps location data

           timestamp = repr(event['data']['gps']['time'])

           longitude = repr(event['data']['gps']['longitude'])

           latitude = repr(event['data']['gps']['latitude'])

           altitude = repr(event['data']['gps']['altitude'])

           speed = repr(event['data']['gps']['speed'])

           accuracy = repr(event['data']['gps']['accuracy'])

           loctype = "gps"

       except KeyError:

           #if no gps data, get the network location instead (inaccurate)

           timestamp = repr(event['data']['network']['time'])

           longitude = repr(event['data']['network']['longitude'])

           latitude = repr(event['data']['network']['latitude'])

           altitude = repr(event['data']['network']['altitude'])

           speed = repr(event['data']['network']['speed'])

           accuracy = repr(event['data']['network']['accuracy'])

           loctype = "net"

       data = loctype + ";" + timestamp + ";" + longitude + ";" + latitude + ";" + altitude + ";" + speed + ";" + accuracy

   print(data) #logging

   time.sleep(5) #wait for 5 seconds

print("stop gps-sensor...")

droid.stopLocating()

4,6(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ