var
menu, D, S: integer;
begin
Writeln('Введите значение меню');
Writeln('1 - известна большая диагональ');
Writeln('2 - известна меньшая диагональ');
Writeln('3 - Диагонали не известны');
Readln(Menu);
case menu of
1:
begin
Writeln('Введите площадь и значение большей диагонали');
Readln(s, d);
Writeln('Длина меньше диагонали равна: ', (2 * s) / d)
end;
2:
begin
Writeln('Введите площадь и значение меньшей диагонали');
Read(s, d);
Writeln('Длина меньше диагонали равна: ', (2 * s) / d);
end;
3:
Writeln('К сожалению волшебства не будет');
end;
end.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Numerics;
public class Program
{
public static void Main(string[] args)
{
Console.WriteLine("Enter 12 integer numbers");
var Arr = new List<int>();
for (int i = 0; i < 12; i++)
{
Arr.Add(int.Parse(Console.ReadLine()));
}
Console.WriteLine($"Кол-во нулевых элементов: {Arr.Where(p => p == 0).Count()}");
Console.WriteLine($"Positive numbers product: {Arr.Where(p => p > 0).Aggregate(BigInteger.One, (p, q) => p * q)}");
Console.ReadKey();
}
}
Объяснение:
Добавьте ссылку на сборку System.Numerics в вашем проекте для корректной работы программы. Иначе будет ругаться на несуществующее пространство System.Numerics
Поделитесь своими знаниями, ответьте на вопрос:
99 ! нужно ввести 2 строки, затем соединить их так, чтобы между ними стояла точка с запятой, и чтобы "а" заменялось "а". ужасно умоляю, хоть какие-нибудь находки!
i:integer;
begin
writeln('Введите две строки:');
readln(s1);
readln(s2);
s:='';
for i:=1 to length(s1) do
if s1[i]<>'а' then s:=s+s1[i] else s:=s+'A';
s:=s+';';
for i:=1 to length(s2) do
if s2[i]<>'а' then s:=s+s2[i] else s:=s+'A';
writeln(s);
end.
Пример:
Введите две строки:
Ужасно умоляю
хоть какие-нибудь находки!
УжAсно умоляю;хоть кAкие-нибудь нAходки!