1.
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) Or ((a<0) and (b<0))
writeln('У обоих чисел одинаковые знаки')
else
writeln('У чисел разные знаки') ;
<span>end.
2.
var a,b:integer;
begin
readln(a);
readln(b);
if (a mod 2=0) And (b mod 2=0) then
writeln('Высказывание истинно')
else
writeln('Высказывание ложно')
<span>end.</span></span>
Var a, b:integer;
begin
write('Введите число: ');
readln(a);
repeat;
b:=b*10+a mod 10;
a:=a div 10;
until a=0;
writeln(b);
readln;
end.
1 вопрос (в)
2 вопрос (г)
3 вопрос (б)
4 вопрос (б)
1.25 ячеек
2.D)4
3.D)
4.C)
5.-
6.A)
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();
}