64 умножь на 64, и 640 раздели на получившееся число
Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.
Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).
алг
нач
цел а,б,н,ас=0,бс=0
лит ат,бт
вывод 'введите целое трёхзначное число: '
ввод а
вывод 'введите целое четырёхзначное число: '
ввод б
ат := цел_в_лит(а)
нц для н от 1 до длин(ат)
ас := ас + Цел(ат[н],0)
кц
вывод 'сумма цифр трёхзначного= ', ас, нс
бт := цел_в_лит(б)
нц для н от 1 до длин(бт)
бс := бс + Цел(бт[н],0)
кц
вывод 'сумма цифр четырёхзначного= ', бс, нс
вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б
кон
240 бит=0.029 мбайт
780 кбайт=0.0007 гбайт
250 гбайт= 262 144 000 кбайт
4гбайта+256мбайт=4 456 448 кбайт
Type point = record
x,y: real;
end;
var vc: array [1..4] of point;
bg,nd: point;
i,j,k,m: integer;
begin writeln('координаты точек - через пробел ');
for i:=1 to 4 do
begin
write('точка ',i,' ');
readln(vc[i].x,vc[i].y);
end;
{ сравнение векторов }
m:=0;
for i:=2 to 4 do
begin
bg.x:=vc[i].x-vc[1].x;
bg.y:=vc[i].y-vc[1].y;
j:=1; k:=1;
while ((j=1) or (j=i)) do j:=j+1;
while ((k=1) or (k=i) or (k=j)) do k:=k+1;
nd.x:=vc[j].x-vc[k].x;
nd.y:=vc[j].y-vc[k].y;
if ((bg.x=nd.x) and (bg.y=nd.y)) or
((bg.x=-nd.x) and (bg.y=-nd.y)) then
begin
m:=1;
break;
end;
end;
if m=1 then writeln('точки образуют параллелограмм')
else writeln('точки не образуют параллелограмм');
end.
<span>
</span>