Решить! pascal abc кот матроскин записал сумму денег вырученных за продажу молока. пёс шарик, назло вечно поучающему его коту, в этой записи заменил все чётные цифры, уменьшив их на 2(только 0 заменял на 8),не трогая нечётные цифры. матроскину восстановить первоначальную запись. ввод корректен (ни одно число не начинается с 8).

👇

Ответ:

aitbek99

16.07.2021

// PasaclABC.Net 3.0, сборка 1052
const
c0=Ord('0');
var
ns,d:integer;
s:string;
begin
Write('Введите сумму, записанную Шариком: '); Read(ns);
s:='';
while ns>0 do begin
    d:=ns mod 10;
    if Odd(d) then s:=Chr(d+c0)+s
    else
      if d<>8 then s:=Chr(d+2+c0)+s
      else s:='0'+s;
    ns:=ns div 10
end;
Write('Сумма, записанная Матроскиным: ',s)
end.

Тестовое решение:
Введите сумму, записанную Шариком: 14258
Сумма, записанная Матроскиным: 16450

4,8(80 оценок)

Открыть все ответы

Ответ:

Babaev11

16.07.2021

Исходное число 665675757
1)665675757:2=332837878 и в остатке 1
значит пишем 1
2)332837878:2=166418939 и в остатке 0
значит пишем 0
3)166418939:2=83209469 и в остатке 1
значит пишем 1
4)83209469:2=41604734 и в остатке 1
значит пишем 1
5)41604734:2=20802367 и в остатке 0
значит пишем 0
6)20802367:2=10401183 и в остатке 1
значит пишем 1
7)10401183:2=5200591 и в остатке 1
значит пишем 1
8)5200591:2=2600295 и в остатке 1
значит пишем 1
9)2600295:2=1300147 и в ост 1
зн пишем 1
10)1300147:2=650073 и в ост 1
зн пишем 1
11)650073:2=325036 и в ост 1
зн пишем 1
12)325036:2=162518 и в ост 0
зн пишем 0
13)162518:2=81259 и в ост 0
зн пишем 0
14)81259:2=40629 и в ост 1
зн пишем 1
15)40629:2=20314 и в ост 1
зн пишем 1
16)20314:2=10157 и в ост 0
зн пишем 0
17)10157:2=5078 и в ост 1
зн пишем 1
18)5078:2=2539 и в ост 0
зн пишем 0
19)2539:2=1269 и в ост 1
зн пишем 1
20)1269:2=634 и в ост 1
зн пишем 1
21)634:2=317 и в ост 0
зн пишем 0
22)317:2=158 и ост 1
зн пишем 1
23)158:2=79 и ост 0
зн пишем 0
24)79:2=39 и ост 1
зн пишем 1
25)39:2=19 и ост 1
зн пишем 1
26)19:2=9 и ост 1
зн пишем 1
27)9:2=4 и ост 1
зн пишем 1
28)4:2=2 и ост 0
зн пишем 0
29)2:2=1 и ост 0
зн пишем 0
30)1:2=0 и ост 1
зн пишем 1
число в двоичной системе 10110111110011010110101111001

4,5(76 оценок)

Ответ:

savikdaniil3

16.07.2021

1 задача. Если есть ошибка или можно подругому сделать напишите.
class Program
{
class Skier
{
public const float procent = 0.12f;
public float distance = 7f;
public float multiplication;
public float alldistance;
public float totalmileage = 7f;

public float Mileage(int day)
{ if (day == 1)
{ return alldistance = distance ; }
else if (day >= 2 )
{ for (int i = 2; i <= day; i++)
{
multiplication = distance * procent;
alldistance = distance + multiplication;
distance = alldistance;
}
}
return alldistance;
}
public float TotalPath(int days)
{ if (days == 1)
{ return totalmileage = distance; }
else if (days >= 2)
{ for (int i = 2; i <= days; i++)
{
multiplication = distance * procent;
alldistance = distance + multiplication;
distance = alldistance;
totalmileage += alldistance;
}
}
return totalmileage;
}
}
static void Main(string[] args)
{
Skier skier = new Skier();
Console.WriteLine("Пробег лыжника за n дней тренировок, введите n: "); skier.Mileage(Convert.ToInt32(Console.ReadLine())); Console.WriteLine("Пробег: "+ skier.alldistance);
Console.WriteLine("Суммарный путь за m дней, введите m: "); skier.TotalPath(Convert.ToInt32(Console.ReadLine())); Console.WriteLine("Суммарный путь: " + skier.totalmileage);
Console.ReadLine();
} }

Задача 2. Решил ее так как я сам понял..

class Students {
List<int> numbers = new List<int>();
public int countstudents;
public int maxCount;
public int minCount;
public void clas(int n)
{
for (int i = 1; i <= n; i++)
{
Console.WriteLine("Введите кол-во учеников в классе: " );
countstudents = Convert.ToInt32(Console.ReadLine());
numbers.Add(countstudents);
}
maxCount = numbers.Max();
minCount = numbers.Min();
Console.WriteLine("Численность превышает на: " + (maxCount-minCount) + " ученика/ов");
}
static void Main(string[] args) {
Students students = new Students();
Console.WriteLine("Введите кол-во классов: "); students.clas(Convert.ToInt32(Console.ReadLine()));
Console.ReadLine();
}

4,7(19 оценок)

Это интересно:

Компьютеры-и-электроника

08.06.2020

Подробная инструкция: Как установить McAfee SiteAdvisor для Chrome...

Образование-и-коммуникации

04.02.2021

Как найти край рулона скотча: советы и хитрости...

Кулинария-и-гостеприимство

02.06.2023

Как быстро и просто подогреть картофель фри?...

Стиль-и-уход-за-собой