Решение
var
x, y, z: integer;
begin
readln(x, y, z);
if (x+y+z)>(x*y*z) then write(x+y+z) else write(x*y*z);
end.
Если есть вопросы, пиши.
#include <iostream>
using namespace std;
union type {
short si;
int i;
float f;
char ch;
bool b;
};
int main()
{
type example;
cout << "Union:\n";
example.si = 123;
cout << " Short int " << example.si << endl;
example.i = 2000145;
cout << " Int " << example.i << endl;
example.f = 3.14;
cout << " Float " << example.f << endl;
example.ch = 'a';
cout << " Char " << example.ch << endl;
example.b = false;
cout << " Bool " << example.b << endl;
return 0;
}
К=64х32х10=20480 символов решение: I=K*i
i=8бит 20480х8=163840 бит
Найти: I 163840:8=20480 Байт
20480: 1024=20 Кбайт
Var s:string;
r:real;
i,j,n:integer;
begin r:=0;
readln(s);
for i:=1 to length(s) do begin n:=0; for j:=1 to length(s) do begin
if s[i]=s[j] then inc(n);
end;
r:=r+1/n;
end;
writeln('количество различных букв = ', r:1:0);
end.
2.
Ответ:
Фух, наконец-то х) Давненько не рисовал примитивами, но вот:) Аргументом процедуры New выступает номер "треугольника", а константа Center носит координаты начала, её можете каверкать как угодно, в пределах... Ну, 30..150 где-то, максимум только размерами окна диктуется))