Паскаль: среди всех делителей числа н найти те сумма цифр которых кратна трем

Знания

Информатика

1 ответ:

Инквизиция [113]4 года назад

0 0

Var n,x:integer;
begin
read(n);
if n mod 3 = 0 then
begin
n := n div 3;
for x := 1 to n do
if n mod x = 0 then
write(3*x,' ')
end
else
write('Not found')
end.

Читайте также

Препод сказала составить программу в Visual Basic , можно на листе решить

Kovisov

Function func1(a As Double) As Double

Dim i As Integer, b As Double

i = 1 - Sgn((Abs(a) - a) / 2)

b = Sqr(a * i)

a = a * 2 + i * (b - 2 * a)

func1 = a

End Function

0 0

3 года назад

Напишите программу, в которой осуществляется ввод целых чисел ( ввод осуществляется до тех пор, пока не будет введён ноль) и опр

NikSin

Предполагается, что будет введено минимум одно значение. <span>var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.</span> <span>P.S. Если понравилось решение не забудь отметить как лучшше. </span>

0 0

4 года назад

Ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, ’ А’ или ’ Б’ C#

aterinOVa

Static void Main(string[] args)
{
StringBuilder str = new StringBuilder();
Console.Write("Введите строку, ввод завершится по точке: ");
char input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
while(input != '.')
{
str.Append(input);
input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
}
Console.WriteLine();
string resStr = str.ToString();
int a = resStr.Count(p => p == 'а');
int b = resStr.Count(p => p == 'б');
if (a > b)
Console.WriteLine("В строке чаще встречается буква а");
else if (a < b)
Console.WriteLine("В строке чаще встречается буква б");
else
Console.WriteLine("В строке букв а и б равное количество");
Console.ReadKey();
}

0 0

4 года назад

Сколько трехзначных чисел можно записать с помощью цифр 1,2,3 и 7 при условии,что в записи числа не должно быть одинаковых цифр?

Lubava2

123, 132, 213, 231, 321, 312,
723, 732, 273, 237, 327, 372,
173, 137, 713, 731, 371, 317
127, 172, 217, 271, 721, 712
итого 24 числа

0 0

4 года назад

C# Дан текстовый файл, содержащий сведения о пациентах глазной клиники. Каждая строка файла содержит: фамилию, имя, отчество пац

Слава Р [21]

Отпишитесь если будут ошибки,т.к. кодил на мобилке.
Тело программы:
public static void Main(string[] args)
{
int man = 0;
int woman = 0;
String file = File.ReadAllText("persons.txt");
List<Person> persons = StringToPersons(file);

foreach(Person p in persons)
if(p.Sex == "Мужской")
man++;
else if(p.Sex == "Женский")
woman++;
Console.WriteLine("Женщин: {0}\nМужчин: {1}",woman,man);
persons = persons.OrderBy(p => p.LastName).ToList();
for(int i = 0;i<persons.Count;i++)
{
Person p = persons[i];
Console.WriteLine("Пациент # {0}\nФИО: {1} {2} {3},Пол: {4},Возраст: {5} лет,Место проживания: {6}, Диагноз: {7}.",i+1,p.LastName,p.FirstName,p.Patronymic,p.Sex,p.Age,p.City,p.Main);

}
}

public static List<Person> StringToPersons(String FileContent)
{
List<Person> persons = new List<Person>();
String[] lines = FileContent.Split(';');
foreach(String line in lines)
{
String[] data = line.Split(':');
if(data.Length>7)
{
throw new Exception("Error read persons file");
}
Person person = new Person(data[0],data[1],data[2],data[3],data[4],data[5],data[6]);
persons.Add(person);
}

return persons;
}
}
public class Person
{
public String LastName;
public String FirstName;
public String Patronymic;
public String Sex;
public String Age;
public String City;
public String Main;

public Person(String LastName,String FirstName,String Patronymic,String Sex,String Age,String City,String Main)
{
this.LastName = LastName;
this.FirstName = FirstName;
this.Patronymic = Patronymic;
this.Sex = Sex;
this.Age = Age;
this.City = City;
this.Main = Main;
}

}
Текстовый файл:
Сергеев:Иван:Алексеевич:Мужской:34:Санкт-Петербург:Кариес;
Белоусова:Элина:Станислава:Женщина:27:Москва:Ангина;
Павлов:Николай:Дмитриевич: Мужской:89:Астрахань:Сахарный диабет
P.s. я не доктор, соответственно в плане диагноза я написал чушь.

0 0

4 года назад