"В" в десятеричной =64 1й вариант 64, второй 70, 3й не видно, но если он между 1м и 2м, то он
Ответ:
Объяснение:
var
a:array[1..1000] of integer;
i, n:integer;
count:integer;
begin
writeln('Input n = ');
readln(n);
for i:=1 to n do begin
writeln('Input a[', i, '] = ');
readln(a[i]);
end;
count:=0;
for i:=1 to n do begin
if ((a[i]<0) and ((a[i] mod 2) = 0)) then count:=count+1;
end;
writeln(count);
readln;
end.
program qq1;
var n,i,j:integer;
begin
writeln(' введите значение n:'');
readln(n);
for i:=1 to n do begin
for j:=1 to i do write(j,' '); //тут заменил j - i на j и в ковычках добавл пробел
writeln();
end;
end.
Var a,r,b:real;
begin
b:=8;
writeln ('Введи a');
readln (b);
r:=2.7*b*b-a*1/5*(a*2);
writeln ('r = ',r);
end.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
type
Point=record
x,y:real
end;
function ReadPoint(c:char):Point;
begin
Write('Точка ',c,'-> '); Read(Result.x,Result.y)
end;
function Len(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var a:=ReadPoint('A');
var b:=ReadPoint('B');
var c:=ReadPoint('C');
Writeln('P=',Len(a,b)+Len(a,c)+Len(b,c))
end.
<u><em>Тестовое решение:</em></u>
Точка A-> -2 -2
Точка B-> 2 4
Точка C-> 7 -4
P=25.8646281402775