<em /><em />Если в три переменные:
var a,b,c:integer;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if (a=b)or (a=c) or (b=c) then
begin
if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
writeln ('Все числа одинаковые');
if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
end
else writeln ('Нет одинаковых чисел');
end.
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
1)
а)Ширина-100 Высота- 66
б)заголовок-задание1
в)Размер-3 Цвет-Желтый
===== PascalABC.NET =====
begin
var (x, y, z) := ReadReal3('x, y, z =');
var e := (Cos(x) - Sin(y)) ** 3 / Sqrt(Tan(x)) + Sqr(Ln(x * y * z));
Println(e)
end.
Кто такие вопросы кривые дает? Хотя не удивительно почему столько тупых программистов в наше время)
Если тактовую частоту увеличить в два раза то и производительность вырастит в два раза. А разрядность в три раза не увеличить т.к их всего два и они не влияют на производительность процессора.