Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
Ответ:1, 4,6
Объяснение: каретка- это ножка на жеском диске, считывающяя, записывающяя и удаляющяя данные с диска. Вверх и вниз привод не позволяет ей двигаться, а вправо и влево может (на кол-во точек на диске)
С помощью магнитного покрытия каретка узнает наличие точки или метки. А также может записать и удалить/стереть информацию.
Источник: объясняет, показывает, рассказывает.
Приёмник: смотрит, пробует на вкус, трогает, слушает, читает, воспринимает, передаёт.
тебе можуть зламати хакери і шахраї,а ще тебе ображатимуть :(