k:=0;
for i:= 1 to 15 do
if (A[i]=10) then k:=k+1;
Ответ:
1, 2, 4
Объяснение:
на флешку можно записать фвйлы. на диск тоже можно записать файлы. 4, вроде как, жесткий диск, на нем тоже может храниться информация, а значит, и можно этот жесткий диск передать другому
??? Ээээ... Аммм...ээх! Всё равно НЕ ПОНЯТНО!
Все расписал на изображении.
1)
var x,y:ineger;
begin
readln(x,y);
if x>y then wrietln('X starshe Y na', x-y) else writeln('Y starhe X na ',y-x);
readln;
end.
2)
var a,b,c:integer;
begin
if a+b>c then
begin
if (a+c>b) and (b+c>a) writeln('Treygolnik')
else writeln('Error');
end
else writeln('Error');
end.