Скласти проект розв'язання задачі користуючись блок-схемою розв'язку що додається. Задача 2. Нехай задано натуральне число. Якщо воно ділиться на 6, то потрібно його розділити на 6.
Умова поділу числа на 6: Щоб число ділилося на 6, воно повинно ділитися на 2 і на 3. А ознаки подільності на 2 і на 3 ви знаєте. скласти алгоритм.
Блок-схема розв’язку задачі
string Price;
Console.WriteLine("Введите сумму покупки.");
Price = Console.ReadLine();
if (ushort.TryParse(Price, out ushort NewPrice))
{
if (NewPrice >= 1000 && NewPrice < 1500)
{
var DiscountedPrice = NewPrice - NewPrice * 0.03;
Console.WriteLine("Цена с учётом скидки 3%: {0:C}", DiscountedPrice);
}
else if (NewPrice > 1500)
{
var DiscountedPrice = NewPrice - NewPrice * 0.05;
Console.WriteLine("Цена с учётом скидки 5%: {0:C}", DiscountedPrice);
}
else
{
Console.WriteLine("Цена без учёта скидки: {0:C}", NewPrice);
}
}
else
{
Console.WriteLine("Введите корректное значение.");
Console.ReadLine();
return;
}
Console.ReadLine();
C#
Free Pascal
const
n=3;
var
a : array [0..n-1, 0..n-1] of integer;
i, j : integer;
begin
(* тут вводим массив поэлементно *)
writeln('Введите массив A: ');
for i:=0 to n-1 do
for j:=0 to n-1 do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
(* печатаем массив в виде матрицы*)
for i:=0 to n-1 do begin
for j:=0 to n-1 do
write(a[i,j], ' ');
writeln;
end;
(* печатаем в виде матрицы корни из каждого соответствующего элемента*)
for i:=0 to n-1 do begin
for j:=0 to n-1 do
write(sqrt(a[i,j]):2:2, ' ');
writeln;
end;
end.