var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
Var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if (x>=0)and(y>=0)and(y<=(-1)*x+6)and(y>=(-2)*x+4)then writeln('True')
else writeln('False');
<span>end.</span>
Program n1;
var a,k,sum: integer;
begin
readln(a);
k:=0;
sum:=0;
while a<>0 do
begin
if (a mod 2=0) then sum:=sum+a;
k:=k+1;
readln(a);
end;
writeln(k);
writeln(sum);
end.
Часть А:
1 - C (short int 2 байта -32768/32767)
2 - D. С числа переменные не называются.
3 - C. 3.5*10^-3=0.0035
4 - A, B, M. Ответ: C
Целый тип принимает только целые числа.т.е к примеру: -1, 2, 55, 99999, -99999.
35.5 - вещественное число.true - логический тип. (Да(true)/Нет(false)). Называется Boolean.
'пять' - строка.
5. 4682, 4680. Ответ: B
Часть B:
1. sqrt(x1+x2) + (abs(x1)/abs(x1+x2))
2. ABS(SQR(36)-15 div 2) = 1289
3. 30
4. Не понятно что такое: X <> Y Y.
Часть С:
1.
var A,B:integer;
S,G:real;
begin
readln(A, B);
S := (A+B)/2;
G := sqrt(A*A+B*B);
writeln('S = ', S, ' G = ', G);
end.